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CZKMA 
CEKMAF, 

96e» 

961 
962 
963 
964 
965 
966 
967 
968 
969 
97P 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
963 
984 
9R5 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 

1002 



MACifU 3v.Afl052) ',i5»^'AW-79 P9JP2 P^Gr {9 
pi 1 05-M;^p,7q 091^2 



.ENABL ftps 



000042 

f^0004 2 M000P10 



000044 

000046 
000046 Pi0fil56 

000052 
000052 «4fi00a 

000044 



SEO 0019 



.LIST KiF,PIN,SK;,LOC 

.TITLE CZKK'A 

•«COPYPIGHT CO MARCH 1979 

;»DIGITAL EQUlpHRf'T CORP, 

;«MAYNAFD, MASS, iM754 

• « 

.«PPOGRAM BY DIAGi OSTIC ENQIMEEPING 

J« 

j«THIS PPOGPA" Kfts ASSEMBLED USI^G THE POP-H MftlNDEC SYS»^AC 

J«PACKAGf-, (MAlMt,Er-tl-0Z0AC-C3)» JA^ 19, 1977, 



SSWPaj 60000 



ffHAlT ON EBROR, LOOP ON TEST» INHIBIT EPPOR TYPOUT 



MTBAP catcher OF , + 2 AND HAl-T FOR 0-776 LOCATIONS 



. = 42 

.WORD 



.SBTTL ACTll HOOKS 



jFOP ACT/XXDP 



•HOOKS prQUlPED PY ACTll 

fSAVE PC 



SSVPC" 
. = 46 

SFNDAD 

.=52 

.WORD 4(^000 

.«SSVPC 



m)SFT L0C,46 TO ADDRESS OF 8ENDAD IN ,SEOP 

M25SET L0C,52 TO 40000 
I > RESTORE PC 



000070 ,b70 

000070 012737 000136 000024 PWPDNf MOV 
000076 000000 HALT 



»PWRUP,fl#24 



CZKMA MACYll 30A(1052) '15-MAP-79 09t0? PAGE 20 
CZKMAF.Pli 05-MAP.79 091^^2 ACTn HOOKS 



SEU 0020 



100 3 
1004 
1005 
1006 
100 7 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
11-27 
1028 
1029 
10 30 
1031 
1032 
1033 
1034 
10 35 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
105i 
1C52 
1053 
10S4 
1055 
1056 
1057 
1058 



000104 
000 1 1 2 



000156 
000160 
000162 
000164 
000166 



013727 

000000 



000120 
000122 
000126 
000130 
000132 
000134 



000136 
000142 
000146 

000150 
000152 



010401 
013700 
010021 
020105 
103775 
000207 



013706 

012700 
060600 

004710 
000120 



000154 000411 



004710 
000240 
000240 
000240 
000430 



000001 000 400 



000350 
006112 



000176 
000176 000000 



000200 013706 000350 



,8104 

; GET mpf IF AN ILLEGAL TRAP TO LOC, 4 OCCURRED, 

BUSPP* ^Cv a«li8$MsGTY »tELL APT FajAL ErrOb»000 

HALT }»EPHnp* TRAP TO LOC, 4 OCCURRED, 

;114 AND 116 ApE uEsERVFn FOp pAplTY TpAp VECtOrs, sETUP IN 
•ROUTINE "BEGIN". 

.al20 



;« WRITF 'EMORY PACKGROUKD 

>« »---- — 

• « 

»» T^JS ROUTINE IS USED TO WRITE THE MEMORY BACKGROU^m TO 
j« T"E VALUE STf^REO AT LOCATION PAKpAT. tHE rOut^^E AssU^'Es 
.# tV'AT P4 IS POINTING TO THE LOWEST LOCATION AND P5 TO THE 
;« HIGHEST LOCATION tO BE wRIttEN, tHE PROGrAM LEAVES THE 
5« SUBROUTINE WITH Rf? CO'^TAINING THE CONTENTS OF BAKPAT, 
5* 



WRTMEMl MOV 
MOv 

2SI MOV 
CMp 
BLO 
PTS 



MOV 

MOV 

ADD 



R4,P1 

a«BSKpAT»R^ 

R('.»CRl)-«- 

P! ip5 

25 

PC 



JSET PI TO LOWEST LOCATION UNDER TEST 
JLOAD R0 wItH tME CONTE^TS OF LOCATION BAKrAt 
{STARTING FROM. THE LOWEST LOCATION WRliE THE 
J MEMORY TO RACK GpOljNO PAtTErM 

fpETUpN FrOM the SUBROUTINE 



JSP 

.AsClZ 

.EVEN 

RP 



a«SAVR6,SP JPESTORE STACK POINTER 

#pNTMES-BEGIN,R0 

Sf,P0 ;GET THE INDIRECT ADDRESS OF LOCATION TPCRLF 

JpELATlVE TO LOCATION OF DIAGNOSTIC IN t^E COrE 
PC,CR0) jGO to the type ROUTINE AND TYPE CR, LF AND A "P 

/P/ 



S"^APT 



;« SERVICE XXDP/ACTll 
lENDADI JsP PC,Cr0) 

NOP 

NOp 

NOP 

PR REsTRT 



»rETUrN to ACtU/XXDp MONITOR 
JIF QUICK VERIFYbRESET ELSE NOP 
I IF QUICK VERlFY»CLp «-l ELsE INC 
I IF QUICK VERIFYbBR ,-4 ELSE NOP 
fpEpEAf TEST UNDER ACtH/XXDP 



SWREGi 



,8176 

.WORD 



.SBTTL start and restart ROUTINES 

!« restart At 200 tO CLEAR APT TABLES 

STAP.TI MOV S«SAVP6#SP iSETUP STACK POINTER, 
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CEKMAr,pU 0S««AP»7f 0f|0a STAPT AND PESTAPT pOUTlNfS 



SEQ 0031 



t0S9 


000304 


012701 


000413 


1060 


000310 


009043 




1061 


000312 


033703 


000400 


1063 


000316 


001374 




1063 


000330 


105737 


000043 


1064 


000334 


001011 




106S 


000336 


10S737 


000405 


1066 


000332 


100406 




1067 


000334 


004767 


006344 


106S 


000240 


095103 


046513 


1069 


«00246 


000060 




1070 








1071 








1072 


000290 


013704 


007744 


1073 


000354 


013703 


000346 


1074 


000360 


013305 




107S 


«00363 


013306 




J076 


000364 


010600 




1077 


000366 


013746 


000340 


107S 


000372 


01CI046 




1079 


000274 


000003 




1080 








1081 








1083 








1083 








1084 








108S 








1086 








1087 








1088 








1089 








1090 








1091 








1092 








1093 








1094 




000276 




1095 




000024 




1096 


000024 


000200 




1097 




000044 




1098 


000044 


000276 




1099 




000276 




1100 








1101 








1102 








1103 








1104 


000276 






1105 


000276 


000000 




1106 


000300 


000400 




1107 


000302 


00144P 




1109 


000304 


n02260 




1109 


000306 


000000 




1110 


000310 


000024 




1111 








1112 








1113 




000405 




1114 









043101 





HOV 


I|UNIT»P3 


111 


CLP 


»tp3) 




CMP 


«|MAXL,P3 




BNE 


11 




T8TB 


»«42 




BNE 


RK8TRT 




TSfB 


•«|TESTN+i 




BMI 


RfSTRT 




JSR 


PCTPCPLF 




.ASCXZ 


/CZKMAr0/ 




.EVEN 




PESTP' 


ri HOV 


»FNRPPG,R4 




MOV 


«SAVpS#p3 




HOV 


CP33*#P5 




MOV 


Cp3)+#8P 




MOV 


8P,P0 




HOV 


#340, -(gp) 




MOV 


f»«,-CSP) 




PTI 





fCLEAR THE APT MAILBOX fROM 8MAIL TO 8DEVCT 

ICLEAP A MAILBOX LOCATION 

I POME t 

IBRANCH ir NO 

lACTll MODE! 

IBRANCH ir YES 

lARE WE RELOCATED? 
IPR ir YES- SINCE TPCrLF Is RELOCATED ALaO- 
pPRINT TITLE 



iLOAD P4 WITH THE ADDRESS OF THE END OF THE PROGRAM 

ICAUSE r3 TO POINT TO THE LOCATION sAVrS 

tRESTOPE R5 

I AND RESTORE r6 JUgT IN CAsE XT Is A pESfART 

IPLACE THE STARTING ADDRESS OF THE TEST IN R0 

ISET HIGH PRIORITY FOR RTI 

,00 TO "STARTS-MAY BE RELOCATED. 

)IF RELOCATED SEE LOCATION SAVR6 FOR START, 



.SBTTL APT PAPAHFTER BLOCK 



IM 



ISET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

t I ««»«««««»#«»#««•••»•««««««»•#«*•««•••»»«•«««#•««»«•«•«»««»#«»«« 

,IX», fiSAVK CURRENT LOCATION 

.■24 IIsEt pOWEp FAIL yO pOlNj ^0 START OF ppOGRAM 

200 IfFOR APT START UP 

•■44 fipOINT TO APT INDIRECT ADDpESS pNTR» 

lAPTHDP iiPOIHT TO APT HEADER BLOCK 

.■.8X IIRESFT LOCATION COUNTER 
I p #««»#»«««#»«»««»«»«•»»««#»«««*«•«•««#«»#«»*«««»«««»»«««#«»»«*«» 
jSETUP APT PAPA>«FtER BLOcK AS DEFINED IN fHC APT-PDPU DIAGNOSTIC 
I INTERFACE SPEC, 

IITWO HIGH BITS OF IB BIT MAILBOX ADDR, 
MADDRESS of apt mailbox CBITS 0-15) 
IIRUN TlM OF LONGEST TtST 

If RUN TIME IN SECS. OP 1ST PASS ON j UNIT (QUICK VERIFY) 
IIAODlTlONAL PUN t'ME (5EC5) OF A PASS FOp EACH ADDITIONAL uNIt 
IFTEND-iHAlL/2 jjLFNGTH MAlLBOX«ETABLF(WOPDS) 

I IT WILL RE IF The PROGRAM Is IN THE LO«iEP 
ICOpE. BIT "^ OF THE BYTE WILL BE SET IF THE 



♦APTHDl 
IHIBTSI .WORD 
IMBADRI .WORD 
ITSTMI .WORD 
IPASTMi .V'OPD 

sunItmi .word 

.WORD 




8"AIL 

8(^0, 

1300. 

IFTENI 


RELalTESTNfl 
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APT PARAMETER BLOCK 



SEO 0022 



1115 






1116 






1117 




000276 


1118 


000276 




1119 






1120 






1121 




000277 


1122 


000277 




1123 






1124 






1125 




000300 


1126 


000300 




1127 






1128 






1139 




000301 


1130 


000301 




1131 






1132 






1133 




000302 


1134 


000302 




1135 




000304 


1136 


000304 




1137 




n00306 


1138 


000306 




1139 






1140 






1141 






1142 




000310 


1143 


000310 




1144 




000312 


1145 


000312 




1146 


000312 




1147 




000314 


1148 


000314 


000 


1149 






1150 


00031S 


000 


1151 






1152 






1153 






U54 






1155 




177960 


U56 




177562 


1157 




177564 


1158 




177966 


1159 




177572 


1160 


00031 6 


000377 


1161 






1163 


000320 


000000 


1163 


000322 


000430 


U64 






116S 






U66 






1167 


000334 


000000 


1168 


000336 


000000 


1169 






1170 


0i03l0 


000000 



typenbi 



SppEppI 



.sMMAVA+l 



.BTYPENB45 



,8«ADFPR*1 
.BSTPTni*2 



pAsFLGi 



BLOWBNK4-2 



,aPASFLG+3 
ENDSTKI 

,bENDSTK+2 
pBNKi 
DECWRDI 

,8DECWRD*2 
TYPCNTI .BYTE 

SAVKBBI .BYTE 

.EVEN 



TKS» 177560 

IKBB> 177562 

•IPS* 177564 

ITPBb 177566 

SR0» 177572 

BAKPATI .WORD 377 

SWAPATI .WOPD 

rELBOtI PECIN-90 



jPPOGPAM IS IN A RELOCATED STATE AND PIT 5 
fWlLL BE SET IF PARITY BITS APE BEING TESTED 



ItHIS byte JS used to DETERMINE IF MEMORY 
|MAMAGE*«ENT IS AVAILABLE OR NOT 



ithis byte Is used to determine ir thf 

I TYPE OUT OF ERROR HAS BEEN ENABLED OR NOT 



ItHIs BYTE DETERMINES IF tHE PROGpA« HAs FOyNO 
lA PARITY ERROR 



ITHIS BYTE Is USED TO DETERMINE IF THE 
IPRQGPAM HAS ENCOUNTERED ADDRESS ERROR 



iLOwEp BYTE OF tHIs wOrD GIvEs THE pAsS "uMBEr FOp 

ITHE SPECIFIC TEST WHEREAS THE UPPER BYTE 

iHAs BEEN USED BY DlFFEpENf tFsT FOp OlFFEpENx pUppOsEs 



iHOLDs B*NK UNDER tEst ^Or "tST ^^^ XX" PrINtOut. 



ITHIS BYTE DETERMINES THE NUMBER OF WORDS 
I TO BE TYPED 

ITHIS LOCATION Is USED TO SAVE THE CHARACTER 
IHIT BY THE OpErAtOr 



IBACKGROUND PATTERN WRITTEN TO MEMORY, 



IHOLDs LOWEST TEST ADDRESS WHEN RELOCATED. 



iLOCATlONs TO BE MODIFIED IF LIMIfl SET BY OPERATOR 

LOhtMOI IHOLDs BITS HUS OF LOW TEST ADDRESS 

LONADDI iHOLDi BITS 1510 OF LOW TEST ADDRESS 



HXGHTWOf 



IHOLDS BITS 17116 OF HIGH TEST ADDRESS 








00H332 


03777b 
















00«334 


000000 




0003 36 


ni7776 










000340 


00P000 










f00342 


000000 


1180 


000344 


(■<O00P)0 


1 101 


M00346 


000000 


1182 






U83 






1184 


00v»35(i 


i^n05r{'i 


1185 


tt0<^332 


00000R 


1186 


00C1354 


1^00000 


1187 


MOM 356 


M00000 


1188 


n0036(» 


00R000 


1189 






1190 






U9| 






1192 






1193 






1 194 






1195 







|02 PAGF 23 
APT PARAf'riEP BLOrX 

HIGH^DPI 3"'776 

SHIMAXI 
8MAXMI 17776 

MAX^EMi ,WOPD r'AXlf^UM CUPRENT ViPTUAL MEMORY UNDFP TEST 

SAVMAXI .WORD 
SAVFt4| ,WOpD 
SAVP5I ,WOPD 

•« SAVR6 POINTS TT ^^HEpF THE PPOGpAW STARTS EVfN t^-HCN RRjLOCATFD. 



iHOLDS Pits 1510 of high test addpkss 



jHOLOS BITS I7il6 OF MAXlvgM AVAILABLE MfMOPY 
JHOLDS BITS 1510 OF MAXIMUM AVAILABLE MEMORY 



SAVp6l 
PApMAPi 
SAVLOCI 
PAPSPI 

pAppsi 



iWOpD 



fGIN 



JCO^JTAI^S STAPT ADDRESS wHEN pELOcAtED ALgO, 
l"AP OF PARITY "ODULES UNDER TEST, 
ITEsT 6 STORES ERPOP INFO HERE 
jpAVF SF DURING PARITY ERrOr TpAp, 

ISAVE PSW DUPING pAplTY ErrOr trAP. 
,M0TE-PAF5P ♦PAPPS are needed SINCE THERE IS 
lis NOT E^'nuGH ROOM OM THE STACK (500"452) AND 
fSO THE FTACK MUST BE RESET IN THE PARFRR ROUTINE, 
fIN THIS CRUDE FASHION, 



j«364-400 IS USED AS A STACK AREA BY ERPCHK ROUTINE FOR ERROR HISTORY PRINTOUT 
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APT PARAMETER BlOrK 



SEO 0024 



1196 




Mlin40t^ 


1197 






1198 






1199 






1200 






12^1 


kt00400 




1202 


M00400 


0H<;i0i4(;i 


1203 


000402 


0000l^f 


12?4 


000404 


M0P!Plt^a 


12M5 


M00406 


0000P0 


12m6 


P0rt410 


pltCH000 


1207 


00^412 


n0M000 


12M8 


r0!^4l4 


00000H 


1209 


('00416 


000000 


1210 


000420 




1211 


00M420 


000 


1212 


M0H421 


000 


1213 


0PI0422 


000000 


1214 


000424 


H00000 


1215 


000426 


P00000 


1216 






1217 






1218 






1219 






1220 






1221 






1222 


C00 4 30 


000 


1223 


«<»0431 


0fr;0 


1224 






1225 






1226 






1227 






1228 


ci<^0432 


f00000 


1229 






1230 


M004 3 4 


000 


1231 


000435 


000 


1232 


00C1436 


000000 


1233 


000 440 


000 


1234 


000441 


000 


1235 


000442 


00PI000 


1236 


000444 


000 


1237 


H0PI445 


000 


1238 


000446 


000000 


1239 


000450 




1240 






1241 






1242 






1243 







,=400 

APT MAILBCX-ETAPLE 



««»««»»4«««#«»««« »«««»«»«»'»«#»'»««««««'««««#« •»«««««««« 



J l«»<»»»«#»*«»«*»****««»«» 


.EVEN 






SMAILI 






SMSGTYI 


.WORD 


A'SGTY 1 


SFATAM 


,wopn 


APATAL 1 


STESTNi 


.WORD 


AtEST'*' I 


SPASSJ 


• WORD 


APASS 1 


6DEVCT1 


,WOPD 


A^EVCT 1 


$UNITI 


.WOpD 


At'NlT t 


$M5GAn, 


.W'OPD 


A»'SGAD I 


S^'SGLGJ 


,wOpD 


A"SGLG f 


SETABLEi 






$EKVl 


.BYTE 


A^NV J 


SENVMj 


.BYTE 


AVMVM , 


Ss'i^REGI 


.WOpH 


Asi^PEG 1 


snswRi 


.WORD 


A'iSWP 1 


scpuori 


.UiOPD 


ArpuOp J 



lAPT MAILBOX 

fMFSSAGE TYPE CODE 

IFATAL EPROr NiiMHEr 

iTEST NUMBER 

IPASS COiHt 

IDEVICE COUNT 

Il/O UNIT Nu'-BER 

jMrsSAGE ADDRESS 

I^FssAGE LENr.xH 

I APT ENVIRONMENT TABLE 

J ENVIRONMENT BYTE 

jEi^'VIRONMENT MODE BITS 

»APT Sif<lTCH REGISTER 

fUSFR Srt'lTCHES 

ICpU TYPE»npTlONs 
BITS 15-11=CPU TYPE 

11/04*01,1 1 /05a02,ll/20B03,ll/40 = 04,ll/45«s05 
ll/70a06»PDQ«07»Qai0 
BIT 10«PEAL TIME CLOCK 
BIT 9BFL0ATING POINT PROCESSOR 
BIT BsMEMORY MANAGEf^ENT 
IjHIGH ADDRESS,'*', S. BYTE 
flMEM, TYPE,BLK«1 
MEM, TYPE BYTE -- (HIGH BYTE) 
900 NsEC CORES001 
3^0 NSEC BlPOLARBi^02 
5f^0 1J5EC MOs«0f 3 
nHlGH ADDRES5#BLK»^ 

^EM.LAsT ADDr,b3 BYtEs^T^^^S W^rD AND LOw OF "tYPE" ABOyE 
IfHIGH ADDRESS, M.S. BYTE 
nMEM^XYpE»BLK#2 
IfMEM.LAST ADDPESS#BLKli2 
ffHIGH ADDrEsS'^^^S-BYtE 
f |MEM,TYPE,BLK»3 
nMEM,LAsT ADDrEsS'BLK»3 
>»HIGH ADDRESS, M.S. BYTE 
nMEM,TYpE,PLK«4 
IfMEM.LAST ADDRESS, BLK#4 



.SBTTL BEGIN 0? AREA TESTED C*20) WHEN PROGRAM RELOCATES, 



S^AMsji .BYTE 
$MtYP1I .BYTE 



AfAMS] 
A"TYPl 



SMADPjr .WORD A'^ADPj 



8MAMS2I 


.BYTE 


A''AMS2 


$mtYp2I 


.BYTE 


A'-'TYp2 


SVADP2I 


.WORD 


A"ADR2 


SMAMgSl 


.BYT?; 


A*'AMs3 


IMTYP3I 


.BYTE 


A»TYP3 


SMADp3l 


,WOrD 


A"ADr3 


6MAMS45 


.BYTE 


A'^AMS4 


SMTYP4I 


.BYTE 


AVXYP4 


$MADR4i 


.WORD 


A»aDP4 


8ETENDI 






.MEXIT 







CEHMAF.plJ 05-M»p«79 09|F2 



PEC2N or ApFA T'^Stfl^ <*20) WHC'^ ppOGpRM RELOCATES* 



SEQ 0025 



1244 








1245 


«00450 


177570 




1246 








1247 




0005t^('> 




1248 


H00500 


010706 




1249 








1250 


000502 


005746 




1251 


000504 


010637 


000350 


1252 


000510 


012737 


00007i4 


1253 


000516 


005037 


000300 


1254 


000522 


(^05037 


0f»03l4 


1255 


000526 


tU2700 


000114 


1256 


00(^532 


ni27i0 


005504 


1257 


000536 


060720 




1258 


000540 


012710 


000340 


1259 


000544 


105737 


000405 


1260 


000550 


1000'»2 




1261 


000552 


000167 


000614 


1262 








1263 


000556 


005717 


000406 


1264 


000562 


001402 




1265 


000564 


000167 


000430 


1266 


000570 


012704 


007744 


1267 


000574 


0127011 


00(»37 7 


1266 


000600 


010037 


000316 


1269 


00M6P4 


005001 

012124 




1270 


000606 




1271 


000610 


023127 


000400 


1272 


0006J4 


103774 




1273 


000616 


(^05741 




1274 


000620 


f 10011 




1275 








1276 


000622 


020011 




1277 


000624 


001403 




1278 








1279 


000626 


004767 


005334 


1280 


000632 


000001 




1281 








1282 


000634 


000300 




1283 


000636 


001 3 7^. 




1284 


000640 


005701 




1285 


000642 


001365 




1286 


000644 


012701 


000400 


1287 


000650 


014441 




1288 


000652 


005701 




1289 


000654 


001375 




1290 


000656 


012700 


000006 


1291 


000662 


{n27l0 


000340 


1292 


000666 


012740 


t»0i»70n 


1293 


000672 


005777 


177552 


1294 


000676 


000404 




1295 


M00700 


022626 




1296 


000702 


012737 


000176 


1297 








1298 








1299 


000710 


105737 


000420 



8WP1 



177570 ffHAMGES TO aWREG IF NO HARD^iARE SWITCH REGISTEP 



,b500 
BEGINi ^'PV 

T5T 

MOV 

MOV 

CLP 

CLR 

HOV 

MOV 

ADD 

MOV 

TST« 

PPL 

JMp 

ONEPASI TST 
PEO 



TSTPPI 



3it 
4SI 



000450 



JMp 
^OV 
MOV 
MOV 
CLR 
MOV 
CMp 
PLO 
TST 
^'Ov 

CMp 

BEO 

JSP 
1 



SWAB 

BNE 

TST 

BNE 

MOV 

MOV 

TST 

BNE 

SETSWPI FHOV 
MOv 
MOV 

7SI TST 
PP 

4Si CMp 
MOV 



6St 



8$l 



pr,sP 



fSET UP STACK POINTER TO EQUAL BEGIN ADDRESS 



»SAVE SP FOR FUTURE USE 

IPREPARE FOR ANY FUTURE POWER DOWN 



-(SP) 

SP(*tlSAVP6 

«FWR0N,i«24 

i«IPRERP 

flilTYPCNT 

»ll4#p0 iPREPApE tC* SETUP PArItY TRAp VECtOr 

iPAPEPP»,«6i(P0) 

PC#(P0)+ fTO PARERR 

«340#(Pt^) lAND PSW OF 340 

(8«pEL lis THIS CODE RELOCATED? 

OJ'EPAS IBRANCH IF NO 

TSTPPL ITHI5 COOF Is RELOCATED sO GET TEST 5IZE. 



1 



i«IPASS 

TSTBP 

SKTSTK 

»FNDppG #r4 

«177,P0 

P,*#(l»BAKpAT 

Rl 

(pl)+#(p4)* 

RM'tf^AlL 

28 

-fPl) 

R'^fCpl) 

R?»(Rl) 
66 



R? 
48 
Rl 
3« 

SgMAIL 

-(r4) 

^1 

8S 

«6#P0 

«340,( 

igwp 

5« 

tsp)*# 

KfjWPEG 



-CpO 



R0) 

P0) 



CSP)* 

,PtSWp 



9»SFNv 



J IS THIS THE FIRST PASS? 

IPrANcH if yes CtEST trap CATCHER ADDpFssEsJ 

I GET THE TEST SIEE 

fLOAD r4 wItH the AODrFsS OF THE E^D OF tHE PrOGrAM 



ISAVE FROM 0000 TO BEGIN-30 AT END OF PpOGpAM FOR NOwi 



IPPEPARE TO TEST THE TR»P VECTORS 

JCHECK THE TR»P VECtOrS FOr tHE CArABILItY 

lOF HOLDING 0'S & I'S 

lis THE DATA OK? 

IBRBNCH IF YES 

f#EPROR» REPORT FRROP MESSAGE AND HALT AT FATHLT 

i»««»»»ERpOp Number i##»»## 



fIF WE HAVE NOT REACHED THE LOWEST MEMORY LOCATION 
ITHEN REPEAT FROM 38 



IrESTORE trap CATCHER ElC. 



»5ET IIP TIME Out TPAP PS^ 

>AND THE RETUPN ADDRESS 

mOFs THE SWITCH rECIstFR POINtED BY 5I«R EXiST ? 

jBRANCH IF YES 

irestore the stack pointer 
}and place the address of the switch register 
designed for the computers ^^^t having hardware 
iswitch register and ru^^'ing stand alone 

IRUNNING u^DEr apt? 
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CEK^AF.pll 05»Mftp-79 09102 pEGIN OF /ipEA T'="StE''' C*20) k-H^N ppOGp%M peLOCAtEs* 



SEQ ^026 



1300 
1301 
1302 
1303 
1304 
1305 
1306 
1307 

1308 
13t'9 
1310 
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 
1345 
1346 
1347 
1348 
1349 
1350 
1351 
13S2 
1353 
1354 
13SS 



000714 001403 
000716 ^12737 



000724 012703 

000730 013737 

000736 W13737 

000744 105737 

t0075P' 100021 



000752 
000756 
000762 
000764 
000766 
000772 

000774 

001000 

O010O'2 
001006 
001012 

001014 
001022 



001024 
001026 
001032 
001034 
001040 
001044 



Hi 2701 
162701 
105711 

001006 
(^20127 
101371 

004767 

000002 

004767 
004767 
000464 

032777 
001060 



010401 
012710 

^llIU 
e627e»i 

022701 
101372 



001046 005737 

001052 001410 

001054 023737 

001062 001404 



001064 
001070 



162701 
01 



000422 00045f) 



00034P 
00p33'^ 
000332 
0HR421 



0(" 5^451 
000004 



006324 
0O632«^ 



000334 
000336 



000002 

170000 



000042 000046 



PFQ 
MOV 



APTSIE 
»S5''"PEG,BtSWp 



IPRANCH IF NO 

ISET SWR EQUAL TO APT SWITCH REGISTER, 



JAPTSIZ- THIS ROUTjME WILL SEARCH THE APT MEMORY EtABLE AND WHEN 

JA NDN zfpO TYpr Ts FOll'"D WILL Sl^TUP tO TEsT TO GIvEN HIGH ADCpFsS* 

• IF APT rFFlNFS SIZE THF LOw TEST ADDRESS ^USTa00000, (DUE TO ETAPLE FOrMAT) 

J FLOW f 

t IF BLOCK 4 (f^P 3»2»11 TYPE NO'I ZEPO THE"^ GET APT HIGH ADDRESS AND EXIT, 

J ELSE SEND EPPOP «3 

jNOtEi the MfMOrY TYPE Is iGNOpED Sl^CE ALL TFsTS ARE RUN REGArDLESS "F MRMOrY TYPE, 



APTSIZI MCV 
MOv 
MOV 
TSTB 
BPL 

MOV 
1 S I SUP 
TSTB 
BNE 
CWp 
8HI 

JSP 
2 

211 JSP 

BRTPSZl BP 



000100 177426 TRYSRI 



001072 



BIT 

PNE 



• 'AXMEM,P3 IPOINT R3 TO MAXMEM, 

• «hightwo»9i«himax n*^ case ^o self sIeI'-'g done. 

(a«HTGHADDf?«$MAXM ||N CASE »!0 SELF SIZING DONE, 
9«$ENVM IDOES APT ALLOW SELF SIZING? 

TPYSP , BRANCH IF YES 



«<«MTYP4*4,P1 

• 4, PI 

(PU 

2S 

pi i»i^'TYpl 

IS 

Pr,FATERP 



PCGETADP 
PC'GEtADR 
TYPSIZ 

i100i9SWR 
TYPSlZ 



SLFSIZI 


MOV 


R4,P1 




MOv 


«4$,Cp0) 


2ll 


MOV 


CPlJ#CPl) 




ADD 


• 2fRl 




CMP 


•l70000#Pl 




8HI 


28 




TST 


»M2 




BEQ 


S8 




CHP 


»M2f»«46 




lEQ 


58 




SUB 


»10000»B1 




BB 


98 



fPOINT Pi TO BLOCK TYPE 4(+4) 
IPOINT PI TO NEXT BLOCK TyPE. 
lis THE BLOCK TYPE NON ZERO? 
jPRANCH if yes (MEMORY EXISTS) 
lALL APT BLOCK TYpES BEEN CHECKED? 
iBRANCH IF NO 

|#ERROR» REPORT EHROp MESSAGE AND HALT AT FATHLT 

f»«#»»»ERROR Number ?••***• 

»G0 SET MAXIMUM APT ADDRESS INTO SMAXM ♦ 8HIMAX 
IGO sEt maximum apt ADDrEss J'^tO HlGHADD*HIGHrwO 
J TYPE THF SIZE OF ME^'OpY UNDER TEST 

fUSEP DEFINED MFMORY TEST BOUNDARIES?? 
IBRANCH IF yEs (don't sIZE MEMOpy) 



ISETUP Rl AND R4 TO THE LOWEST ADDpESS OF MEMORY 

fsET UP RETURN ADDRE55 FpOM jIME OuT TR^P T^ *• 

iWpITE A MEMORY LOCATION INTO ITSELF AND TRAP IF NXM 

lADD 2 TO THE ADDRESS POINTER 

fCHECK IF BEYOND 30K MEMORY BOUNDARY 

IKEEP ON SIZING UP THE MEMORY U^^TlL NXM TRAP 

fCTlME OUT TRAP) IS ENCOUNTERED 

fOp 30K BOUNDARY REACHED 

I IF NOT XXDP 

I THEN CONTINUE 

I ELSE IF NOT XXDP CHAINING 

f THEN CONTINUE 

} ELSE SET MAX, MEM, AT 28K 



'") 



CZKMA MftCYll 3t'Aft05?) '/5«''*A»«79 Pi9|P2 PAGE 27 

czKMAF.pl i f'S-M^p-Tg 0gti'2 Brr.iN of aqea tfstfd c + ae-rwHF^ ppOCpA^ pflocatks- 



StQ ^«27 



) 



1356 


001^72 


022626 




4SI 


Cf^P 


fSP)"!-, {SP) + 


t357 


(HM074 


004767 


005764 


5SI 


JSP 


Pf-,MFMMfjf: 


1358 














1359 


001 I ^C* 


105737 


00^276 




ISTP 


asMf. AVA 


1360 


i^m lf4 


001416 






BFO 


12S 


1361 


00U06 


C127lfl 


00 1120 


661 


MOV 


«o8,(R0) 


1362 


«^U1112 


0127^1 


02000? 




MOv 


#20000, pi 


1 363 


f 01 116 


000745 






BP 


2S 


1 364 


frUSI 12k! 


022626 




Hi 


C^*P 


f <:P) + ,(SP) + 


1365 


001 122 


«2270i 


1 60000 




CMP 


«160000»P1 


1366 














1367 














1368 


"01126 


001005 






PNE 


128 


1369 


0011 I 30 


0137^2 


172352 




MOV 


flM72352.P2 


1370 


^01134 


004767 


005 7 30 




JSP 


PC'-'^^PEG 


U7i 


CT«n 40 


001^762 






BP 


6S 


1372 


00U42 


fi2434l 




I2jl 


CMP 


-fP3),»cPl) 


1373 














1374 


^01144 


004767 


006072 




JSP 


PC'PUTADp 


1375 














1376 


H01 150 


024343 






CN'P 


-CP3),-Cp3) 


1377 


m)\52 


004767 


006(.!64 




JPP 


Pr,PUTADP 


1378 














1379 


001156 


M05743 






TST 


-CP33 


1380 


M01 16^1 


005043 






CLP 


-CR3) 


1381 


V)01162 


00504 3 






CLP 


-fP3) 


1382 


('01164 


012720 


000104 


TYPSIZI 


MOV 


«pl.rsFP»Cp0) + 


1383 


(^4^1170 


0lM4«3 






MOV 


PlfPS 


1384 














lies 


Pel 172 


£^127^1 


000324 




vnv 


«LOWTWn,Pl 


1386 


^?01l76 


00 4767 


0(','5 37v-^ 




JSP 


pr#pCpLF 


1387 


00121^2 


004767 


005536 




JSP 


PC»ocTTyp 


1388 


MP12(^6 


004767 


005272 


TYPMFMI 


JSP 


PC, STYpr 


1389 


'^01212 


«^00055 






.asciz 


/./ 


1390 










,FVEN 




1391 


00121 4 


W04767 


005524 




JS» 


PCOCTTYP 


1392 


5^01220 


"12703 


000 3 30 


sEtstki 


MOV 


»^IGHTwO,p3 


1393 


001224- 


(?04767 


0061 16 




JSP 


PCSGTSTZ 


1394 














1395 


t'0i2 30 


01040J 






Mnv 


P4,Pl 


1396 














1397 


n0l232 


0627C4 


000022 


4S3 


ADD 


«!8,,P4 


1398 














1399 


001236 


005 302 






DEC 


P2 


14P0 


001240 


002374 






BGE 


4S 


1401 


«01242 


0227^ 


167776 000336 


Cf-'P 


8i67776ie8S''AXM 


1402 


001250 


0010(^2 






PNF 


5S 


1403 


001252 


pf>2'lcA 


00'^022 




ADD 


«iP.»P4 


1 4f'4 


001256 


010437 


000310 


581 


MOy 


p4,Bi!FNCsTK 


1405 


c'01262 


005021 




6Sl 


CLP 


(ni )♦ 


I4f?6 


H01264 


020104 






CMP 


pi ,P4 


14M7 


001266 


101775 






BLOS 


6S 


1408 


001270 


012737 


157776 000340 


MOv 


«l57776,ei»Mfi)('^FM 


145^9 


001276 


005723 






TST 


(P3) + 


1410 


H01300 


001005 






pf'E 


S*V^Dp 


i4n 


00130 2 


021327 


170H00 




CMP 


(*i3)'*l700c^f» 



5pf:ST0pE ThF STACK pOIMEp 

! SEPVICE MEMORY VANAGEI'tNT IF IT IS AVAILABLE 

Ifi'^n IF It HAS tO BE TESTED 

I SEE IF MEMORY MANAGEMENT HAS TO BE TESTED 

fIF NO "EM. "^ANG, THE*^ GO TO 12S 

ISET up THE PETUPN ADDPESS FF<OM TPAP TO 8$ 

rPEnir; CHECKIf^G ^fmOry ABOvE 2BK 

JPESTOPE STACK pOINTEp 

JIF Rl DID NOT READ ALL THE LOCATIONS POINTED BY 

JPAGE ADOrEsS register 6 tHEN It HAs REACHED THE 

;MAXI^'UM AVAILABLE MEMORY 

fIN 'rtHICH CASE GO tO 128 

SPRFPARE TO UPOATF ME^OPY MANAGEMENT REGISTERS 

IOtHFrwIs"^ go tO UPDATE MEM. MANG. REGISTERS 

;CAt.!SE r3 to POINT TO LOCATION sMAXM AND Rl 

;T0 THE MAXi'*UM AVAILABLE MEMORY 

>nO T*^ THE SUBROUTINE T© pLAC»^ THE ADOpEss IN r1 

jAT LOCATIONS SMAXM AND SHIMAX 

."^•AKE P3 POINT TO HIGhADD 

jPLACE THE ADDRESS IN Ri AT LOCATIONS HIGHADD 

I AND HIGHTwO 

jCLEAP THE LOCATION LOWADD 
JAND LO«iTWO 

!sEt UP vectOp for any Future trap 

!SET P3 TO point TO THE LOWEST AVAILABLE MEMORY 

jlocation 

JTYPE CP/LF 

J TYPE LOW TEST ADDRESSE (LOWTWO + LOWADD) 



JTYPE HIGHEST TEST ADDRFSS (HIGHTWO+HIGHADD) 

jMAKF p3 POIK'T TO THE HIGH OpDEp BITS OF TOP ADDpFsS 

J GET THE PITS 13-17 OF THE TOP ADDRESS 

JPLACED IN BITS «''"4 OF f2 

JSFT Rl TO LOWEST TEST ADDRESS 

JAPPEND THE FPpOp STACK FOR THE MEMORY UNDER 
JTEST TO THE EKD OF THE PROGRAM 



JCHECK IF THIS IS A i^K SYSTEM 

JBRANCH IF NOT 

ISAVE ANOTHER BANK5 WORTH OF FRPOR STACK 

SSAVE THE ADDRESS OF tHF END OF THE ERROp STACK 

SGLEAP THF ERROR STACK 



»sEt maxmem jO -^AxIMuM vIrtuAL ADDrEsS 
jTESTiNG MEMORY MANAGEMENT? 

ipranch If yes cgo save LOADERS At tOp of vIrtual MEMOrY 

}TS THE VIRTUAL ADDRESS ABOVE i67776? 



CZKMA M/iCYll 30Atl052) 05-MaF-79 
CZKMAF.Pll 05-HAR.79 09,02 



09102 PaGF 28 

PFGl" OF APFA TES-rET) ( + 20) *^HEN ppOGP&M RELOCATES, 



SEO 2028 



^ 



1412 
1413 
1414 
1415 
1416 
1417 
1118 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 
1429 
14 30 
1431 
1432 
1433 
1434 
1435 
1436 
1437 
1438 
1439 
1440 
1441 

1442 
1443 
1444 
1445 

1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 
1460 
1461 
1462 
1463 
1464 
1465 
1466 
1467 



001306 103002 

001310 011363 000002 



001314 004767 00610' 
001320 "'05723 
^01322 011305 



BHIS SfVLDR 
MUv (r3),2Cp3) 



001324 
0013 30 

0013 32 
0013 36 
00 13 4 2 
001 344 

'-^01 35 2 
001 354 
001360 
001362 
001364 
001366 
001 370 

001372 
001 376 

00140 2 
001 404 
001410 

001412 
001 41 4 



001420 
00142 2 
001430 
001 432 
001436 

001440 
001444 



020527 
103416 

I627t45 

005737 
001406 
023717 

001402 
162705 
012524 
020513 
101775 
012323 
1042 3 

01 '^5 37 
004767 

005745 
012703 

00^723 

00100 3 
021327 

l''34ll 
032777 
001003 
04^4767 
000003 

000167 
020423 



0(H 276 

0000 4 2 



0000 42 
005376 



000346 
00601 6 



010000 
0ki45l0 



"01446 103002 

001450 016304 177776 

001454 005723 

001456 001003 

001460 021305 

001462 101001 

001464 011305 

f?0i466 105737 000405 

001472 100014 

001474 013704 000322 



SAVLDPI JSP 
TST 
^'OV 



Pr,CLP^''^ 
( P 3 ) + 
(P3)»P5 



jBRAKCH IF YES (GO SAVE LOADERS) 

J0tMEPwIsF MAKE THE CONTENTS OF LOCATION m^xMEM 

{EQUAL TO THE MAXIMUM AVAILABLE MEMORY 

M^'U FALL IMtO SAVE LOADERSt 

J DISABLE THE MEVOrY «ANAGEME*1T UNIt 

I^AKE r3 tO pOIMx TO tHE LOCATION MAXMEM 

jP5 COK'TAIN'S THE ADDRESS OF MAXIMUM AVAILABLE MEM, 



;IF ONLY 4K BETf-G TESTED DC'l'T SAVE LOADERS 



l77t^20 26t 





CMP 


R5,«l7776 




PLn 


4S 


361 


siip 


#276, P5 




TST 


(a«42 




BFQ 


28 




C^'P 


o«42»(a«46 




BFQ 


28 




SUB 


«<l502,»2>-2 


2SI 


MOV 


C'^5) + »(P4) + 




CMP 


P«#(R3) 




BLOS 


2S 


481 


MOv 


(p3)+,Cp3)+ 




MOV 


P.,fR3)4 


TSTRELl 


MOV 


pK^asSAVRS 


TSTSIZ' 


JSR 


PC'CLpMM 




TST 


-(P5) 


18J 


MOv 


«L0WTK0,p3 




TST 


{P3)* 




BNE 


28 




CMp 


(h3)»«157776 




BLO 


43 


261 


BIT 


«!0000,aswR 




PNE 


38 




JSP 
3 


Pr, FATEPR 


38! 


JMP 


TSTMM 


481 


CMp 


p4, (p3)4 




BHIS 


66 




MOV 


-7(p3),p4 


681 


TST 


(P3) + 




PNE 


88 




CMP 


(P3)»P5 




BHI 


8S 




MOV 


(p3)»PS 


ill 


TSTP 


e#RrL 




PPL 


108 




MOV 


9SRELB0T,P4 



jONLY TESTING 4K MAX? 

jbranch if yes (don'x savf loaders) 
jppfpape to save 300 bytes of the loaders 

nr HUf<NIHG u'^DEp XXDp 
; THE*- CONTINUE 

I ELSE IF NOT UNDER XXDP CHAIN vnpE 
J THEN CONTINUE 
r5 1 ELsF sAVF 1500. wOpDs FOr XXDp CHAIN MODE 

jSAVE LOADER 



'SAVE THE CONSENTS OF LOCATION MAXMEM IN SAVMAx 
jAND THE CONTENTS OF R4 AT SAVP4 

iSAVE HIGHEST VIRTUAL ADDpESS+2 

>G0 tO disable mfmOrY MANAGEMENT uNIt 

jSET P5 BACK TO HIGHEST VIRTUAL ADDRESS 

IppEpApE tO load r4 AND r5 wItH tHE ^EMOpy BOuNDpIEs 

J IE THE PITS I6»l7 OF THE LOwEST LOCATION UNDER 

»TEsT ARE NON ZEPO 

ITHEN GO TO 28 

»TF THE LOWEST LOCATION ijNDEr t^ST IS HIGHER tHAN 

1157776 THEN GO TO TEST MEMORY MANAGEMENT 

J IS MEMORY MANAGEMENT SELECTED? 

>YEs ALL Is WELL 

j#ERROR* REPORT ERROR MESSAGE AND HALT AT FATHLT 

f»»»»»«FRROR NUMBER 3»#*«»« 

»G0 TO TEST MEMORY MANAGEMENT 

ICOMpApE T-Op OF ppOGpAM (wItH sAVED LOADEps) TO 

jLOWEST LOCATION UNDER TEST 



J ADJUST R4 TO pOINx tO iHE LOWEST LOCATION UNDER TEST 

jIF PITS 16-17 OF HIGHEST LOCATION tO BE TESTED 

JAPE MQN 2ER0 THEN GO TO 8$ 

fOTHEPWISE SEE IF THE HIGHEST LOCATION TO BE 

»TESTED Is HIGHER THAN HIGHEST VIRTUAL ADDpEsS 

fIF SO THEN GO TO 68 

fMODIFY R5 

lARE WE PFLOCATED.? 

fBRANCH IF NO 

JSET BOTTOM TEST ADDRESS WHEN RELOCATED, 






1468 


001500 


W20527 


(»17776 


1469 


^01504 


103402 




1470 


W01506 


012705 


017776 


1471 








1472 


001512 


«20405 




1473 


001514 


103403 




1474 


C^01516 


0*^4767 


004444 


147S 


001522 


0000(^4 




1476 








!477 


001524 


0127P3 


00P342 


1478 


001530 


011343 




1479 
1 480 


001532 


062713 


00(^002 


I48i 


001516 


005725 




1482 








1483 








1484 








148S 


001540 


010500 




1486 


001542 


005040 




1487 


001544 


020004 




1488 


001546 


101375 




1489 


001550 


012702 


000001 


1490 


001554 


004767 


005740 


1491 


001560 


012702 


000316 


1492 


001564 


012212 




1493 


001566 


000312 




1494 


M01570 


M17702 


176654 


1495 


(101574 


042702 


177760 


1496 








1497 








1490 








1499 








1500 








1501 








1502 


001600 


005037 


t)00306 


1503 


00160 4 


11^237 


0004(^4 


1504 








1505 


001610 


H10401 




1506 


n0l6l2 


010400 




1507 








1508 


001614 


010403 




1509 


001616 


006302 




1510 


mi67^ 


060702 




1511 


001622 


0662(^7 


00(^P(»4 


1512 








1513 








1514 








1515 


6)01626 


000102 




1516 


0016 30 


000340 




1517 


H01632 


000440 




1518 


001634 


000i5t' 




1519 


001636 


(401016 




1520 


^01640 


001126 




1521 


001642 


001274 




1522 


001644 


001430 




1523 


001646 


001654 





09102 Page 2« 

BEGIN OF AprA fFS'^En (♦20) 

C^*? R8#«l7776 

BLO 91 

MOV «i7776#P5 



911 CMP 

PLO 
JSP 
4 

10SI HOV 

MOV 
MEMT5TI ADD 



P4#P5 
PCfFATEPP 



• SAVriAXfPS 

ep3)»-(p3) 

»?»(P3) 



jCLEAP >*FMOBy UNDEP TEST 



CLRHEMi 


MOV 


P«i»P0 


2ii 


CLP 


-fR0J 




CMP 


Rill P 4 




BHI 


21 




MOV 


»1»P2 




JSP 


PCiPAPlTY 




MOV 


«PAKPAT,P2 




MOV 


(p2)*i(p2) 




SWAB 


CP2J 




HOV 


P5WP,P2 




BIC 


#177760, R2 



INHIPN ppOCnkl* PFLOCATCS, SEQ 0i*2f 

jARF WE RELOCATED IN BANK 0? 

jBRANCH IF yes 

fELSE SET HIGH MEMOPY U^DFR TFSTa4K 

IIS LOW LIMIT LOWER THAN HIGH LIMIT! 

IPRANCH IF YES 

l#EPPOR# REPOPT ERROP HESSAGF AND HALT AT FATHLT 

}tt«««««EPpOR NgMBER 4»««««1» 



lREST'5RC THE CONTENTS OF MAXMEM 

fMAlCi THE CONTE'^TS OF MAXMEM s MAXIMUM AVAILABLE 

jMEMOpY +2 

I AND SET P5»MAX MrM0RY*2 



{MOVE HIGH ADDRESS TO R0 

l«EGIw CLEARING THE MEMORY FROM THE TOp 

lUNTJL THE BOTTOM IS REACHED 

ISET R2 TO ENABLE PARITY MODULE CODE, 
IFNABLE PARITY IF WAITED AND AVAILABLE. 

»WRlTE SWAPPED BAKpAT X^ LOCATION gWApAT 

fLOAD p2 WITH THE OPTIONS STOptO AT |SJ»PEG 

fOMlY LEAVE THE LOWER 4 BITS 0F ISWRCG IN R2 TO CO TO 

ItHF test * SPECIFIED IDEFAuLt Is TEfT<'«'J 



■) 



jENTER HERE FROM TSTSCP ROUTINE AT ENp OF SUBTEST 



CONTI 
LOOP I 



CLR 
MOVB 

MOv 
MOV 

MOV 
ASL 
ADD 
ADO 



aiPASFLG 

p2#9»itFstn 

R4»pi 

P4#Ri^ 

R4,R3 

P2 

PC,R2 

TPL«,(R2),PC 



fINIT SUBTEST PASS FLAG, 

IsET up iT^STf^ wItH tHE TEsT ^UMBEr GOING 

|T0 BE EXECUTED 

fLOAD pi wItH T"E lowest LOCATION uMDEp Tf-ST 

iplacf the address of thr lowest location under 
itest in P^ 

I AMD IN P3 



IGO TO THE TEST » 
fSTORED IN BITS 0-3 OF SWITCH REGISTER 



TST0-TBL 
TST1"TBL 
TST2-TBL 
TSt3"tBL 
TST4-TBL 
TSt5"tBL 
TST6-'^BI' 
TST**TBL 
TSTi0""TRL 



iREtATlVE 

ipelatIve 
ipelative 

IPELAtIvE 
jPELATlVE 

»relatIve 
ipelative 

PrELAtIVE 
fPELATlVE 



ADDRESS OF TEST 
ADDRESS OF TEST 
ADDRESS OF TEST 
ADDRESS OF tEST 
ADDRESS OF TEST 
ADDRESS OF TEST 
ADDRESS OF TEST 
ADDRESS OF tEsT 
ADDRESS OF TEST 



CZKMA MftCYU 30A(1052) 05-f'AP«79 09|P2 PAGE 3<^ 

CEKMAF.Pii 05«Mar»79 09|02 BEGIN OF APFA TF-pTFD (♦20) ^HEN PROGRAM RELOCATES, 



SEQ 0030 



1524 
1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 



M0l65Pt 002204 
001652 002256 



001654 
t'01656 



002510 
00 3156 



TSTll-TPL 

TST12-»TPL 

TST13-TPL 
PFLOC-TPL 



JRELATIVE ADDRESS OF TEST » U 

fPELATlVE ADDRESS OF TEST « 12 

JPELATIVE ADDRESS OF TEST # 13 

ipelatIve address of routine 'pELOc' 



fP5 IS P0T^TI^'G TO THE TOP OF THE MEMORY TO BE TESTED+2 

»p4 i p0 SpF POINTING TO tHE LOWE5T ADDRESS OF MemOrY TO BE TESTED 



1 



CEKMA MftCYU 3f'AClP5?) ('>'S-MftP"79 P9S02 PftGF 31 
CEKMAF.Pll «l5»MAR-7g 09|('2 SCOPE ROUTINE 



1533 








1534 








1535 








1536 








1537 








1538 








1539 








1540 








1541 








1542 








1543 








1544 








1545 


fi0l66M 


105737 


0004?r* 


1546 


'^P1664 


001002 




1547 


001666 


01-14767 


0060!'2 


1548 








15 49 


C501672 


ll370i 


00'i40 4 


1550 








1551 








1552 


001676 


005237 


000410 


1553 


f0l7fe,2 


(^32777 


002000 


1554 


001710 


001401 




1555 


001712 


000000 




1556 








1557 


001714 


032777 


040000 


1558 


'101722 


001332 




1559 


001724 


1052(^2 




1560 


001726 


000724 





SCOPE POUTINE 



CNTSCPl MOVB 



176526 TSTGOi 



pnOCRAhS COMFS TO THIS ROUTINE AFTER COMPLETION OF EACH TEST AND 

IF CNtrL-C TYPED GOtO EppOp HIsTOpY TYPE ROUTlf^E, 

IE SRe 2000 (BITi0) THEM HALT 

IF SpB 40000 (8It14) tHEN LOOp ON tEst DEFINED BY 5P BlTS<3l0> 

ELSE CONTINUE TO NEXT TEST. 



TSTSCPl TSTB 08SENV 
PNE C^'TSCP 
JSP PffCHECKC 



»«$TESTN,R2 



INC h<8DEVCt 

BIT 8?p00,PSi^R 

peq tstgo 
swhalti halt 



BIT 


«40000,0SWR 


BNE 


L'^OP 


INCB 


P2 


BR 


CONt 



J ARE WE PUNNING UNDER APT? 

fIF 50 THEN GO tO C^TSCP 

JTEST FOR CONtrOL-C AND IF TYPED GO 

IPPINt ErrOr HIsTOpY AND HALT AT FAtHLt. 

fPLACE THE TEST NUMBER IN THE LOWER BYTE OF P2 

>Sl*^CE THERE ApE LESS THAN 377 TESTS UPPER BYTE 

lOF R2 WILL BE 

>tELL APT WE ARE STXLL RUNNING OKAY 

lis THE PROGRAM GOING TO HALT AFTER EACH TEST? 

I IF NOT THEN GO TO 28 

IHALT AT END OF TEST SWITCH SET. 

lis THE PROGRAM GOING TO LOOP ON TEST 

JTF s^ THEN GO tO THE STARTING OF THE SA^E TEST 

IGO tO CONt AND CON-rlNuE FXECUT^'^G THF NEXT TEST 



CEKMA ^'ACYll 30Ari052) 05-^'ftf=-79 09ie2 P'^GF 32 

CZf<MAF,pll 05,f^AR-79 09st^2 r^ tEst FOp ppOpEp BANK s^^ECtIO^' 



SEQ 0032 



■I 

Hi 



1561 








• l«»*«»*»«*»»»««#«»#»**#»«»»»» 


1562 








.«test 





TFST FOP PROPE 


1563 










r»cn 


T>-Is TEST AssU 


1564 










)« 


OF ALL 0*5 AND 


1565 










t * 


LriCATlON tiMDER 


1566 










}»{2) 


It CHECKS FOR 


1567 










f * 


I'S If^ A LOCAT 


1568 










J« 


LOCATIONS OF 


1569 










;« 


[I.E. LOCATION 


1570 










»*C3) 


T"Iw«s TEST ALSO 


1571 










• # 


PG BANK RESPO 


1572 








• }««»«»»«««««#«»«»»«««'«««««««# 


1573 


0017 30 


105737 


000404 


TST0I 


TSTB 


BtSTEFTN 


1574 


001734 


00140 3 






BEQ 


,*iP 


1575 


001736 


P047t^7 


004224 




JSR 


PC#SEQEPR 


1576 


001742 


300005 






5 




1577 














1578 


00l74i 


012703 


177777 




HOV 


«177777,R3 


1579 


001750 


c«1040l 




181 


MOv 


R4,pl 


1590 


001752 


f 10310 






MOV- 


P3,(P0) 


1581 


O01754 


020001 




2$: 


CMP 


Rv^»pl 


1582 


001756 


001417 






BEO 


48 


1583 


001760 


00571 1 






TST 


(Rl) 


1584 


001762 


H014 30 






BFQ 


5S 


1585 


001764 


02031 I 






CMp 


P3,fRl) 


1586 














1587 














1588 


001766 


001004 






BNF 


35 


1589 


001770 


012767 


000006 000042 




MOv 


«6,12S 


1590 














1591 


001776 


000403 






BR 


108 


1592 


002000 






3SI 






1593 


002000 


012767 


000007 000032 




MOV 


ST^US 


1594 














1595 


002006 


010046 




10SI 


MOV 


P(^»-(SP) 


1596 


002010 


105237 


000301 




INCP 


fltSADERp 


1597 


002014 


000407 






PP 


118 


1598 


002016 


020311 




481 


CMP 


P3,(P1) 


1599 


002020 


001411 






BEO 


51 


1600 


002022 


012767 


000010 000010 




MOV 


«10,128 


1601 














1602 


002030 


010046 






HOv 


P0»-CSP) 


1603 


M02032 


010300 






MOV 


P3,P0 


1604 


002034 


004767 


00357P 


1181 


JSR 


pr#ERROp 


1605 


002040 


000000 




1281 


.WORD 




1606 


PI02042 


012600 






MOV 


(sPHipo 


1607 














1608 


002044 


013706 


000350 


581 


MOV 


0l!SAVP6,SP 


1609 


002050 


062701 


020000 




ADD 


82000f'»Rl 


1610 














1611 














1612 


003054 


020105 






CMP 


Rl,R3 


1613 














1614 


002056 


103736 






BLO 


21 


1613 














1616 


002060 


10S737 


000421 




TSTB 


iJtlENVM 



R BANK SELECTION 

MEs THAT THE MEMOpy ig IN A STAtE 

R0 HAS THE ADDRESS OF THE LOWEST 

TEST 
PROPER BANK SELECTION BY WRITING 
ION AND CHECKING FOp 0's T^ THE sA*"'? 
THER 4K BANKS OF THE MEMORY 
S LIKE 7766 AND 27766 ETC, 3 

CHECKS TO SEE THAT NONf; OF THE NON EXIST- 
ND V'HFN iHEY ARE ADDRESSED 

iCHECK FOR PROPER TEST SEQUENCE 

l»EFPOp» REPORT ERROR MESSAGE AND HALT AT FATHLT 
I##»»«#ErrOr NUMBER 5*»**#« 



JrI b ADOrEsS of LOWEST LOCATION OF MEMOpY UNDER TEST 

ISET ftLL THE BITS AT (R0) 

ns P0 POINTING TO THE SAME MEMORY LOCATION AS Rl 

jIN WHICH CASE CHECK FOR ALL i 'S AT (Pj) 

SOTHERWISE CHECK (Rl) FOp ALL 0's 

»IF pi Is NOT EQUAL TO R0 AND (Rl) 
JDOES NOT CONTAIN ALL 0'5 THEN 
ICHECK tO see if (p0) a (pt) 

J»EppOp« SETUP ERROR NO, IN 128 
j**»»#«ERR0R NUMBER #64j««#»# 



>»EPPOR« SETUP ERROR NO, IN 128 
I«#»»*«Err0p NuMBEp «7«**#«» 
»SAVE R(? f,N STACK 
JAN ADDrEssING EppOp Ig SUSP^^TED 

ICHECK (PI J FOR ALL 1 'S 

f»EppOR# SETUP ERROR NO, IN 128 
I«#«»«»ERPOR NUMBER #10«*«»#» 
ISAVE R0 ON STACK 

IGO TO THE ErrOr SUBROUTINE 

IERROR number TO BE REPORTED WILL BE PLACED HERE 

IREsTOrE p0 

IRESTORC THE STACK POINTER 

ICAusE Rl T*^ pOINf fO xHE sA^E CHIp 

ILOCATION IN THE NEXT 4^^ BANK OF MEMORY 

IBY ADDING 1 tO tHE HtH BIt OF ADDrEsS l'^ Ri 

ICQMPAPE Pi WITH THE HIGHEST MEMORY 

ILOCATION WHICH Is STORED IN p5 

I IF Bl LESS THAN R5 THEN REPEAT THE TEST FROM 28 

IHAS apt INHIBITED SIZING? 



CIKMAr.PJl 05»HAP»79 ^9102 ffi TEST FOi» |>|I0?EJ» SANK SELECTION 



SCO 0^33 



I6i7 
t6l8 
lij9 
1620 
1621 
1632 
1623 
1624 
162S 
1626 
1627 
1629 
1629 
1630 
1631 
1632 
1633 
1634 
163S 
1636 
1637 
I63t 
1639 
1640 
1641 
1642 
1643 
1644 
1649 
1646 
1647 
1646 
1649 



003064 100432 

002066 032777 00Pl0i^ 17S354 

003074 001026 

002076 02P127 157776 

002102 101016 

002104 020137 000340 



002110 
002112 
002116 
M02122 
002126 
002130 
002132 
002136 



003140 
002144 

002150 
002152 



103755 
C12702 
012712 
PI 1742 
060713 

004767 

000011 



012702 
012722 
005012 
005010 



002162 
002164 



103672 

000635 



P000O6 

000340 
177714 



0C0004 

000006 



002154 062700 020000 



002l6c» 020005 



BMI 


tl 


BIT 


«100»(aswp 


»NE 


II 


CMP 


Rl, #157776 


BHI 


6i 


CMP 


Pl#»»MAXM!rM 


BIQ 


SI 


MOV 


i)6fP2 


MOV 


i340#(R3) 


MOV 


«il-.*6#«CP2) 


ADD 


PCiCP2) 


MOV 


fBl)»(Wl) 


atP 


PCfFATEpp 


11 




MOV 


#4»P2 


MOV 


«6»Cr2}'» 


CLP 


(P2) 


CLP 


Cp0) 


jino 


«20000»Pf 



END0I 



CHp 



BLO 
BR 



prt#p5 



II 
T5T8CP 



ISPANCH IF YES CDOW'T TEST NON-EXISTENT MEMORY) 

(HAS USER INHI9ITED SIZING? 

liPAKCH If YES (DON'T TEST NON»EXlSTENT MEMORY) 

ISBE If Pi HAS CROSSED 28K BOUNDRY OF VIRTUAL ADDRESS 

UN WHICH CASE CO TO 61 

ISHOULD BE LEFT AS IS FOR 30K SifSTEMg (WHICH USE 16K CHI 

IZa Rl LOwEB THAN THE MAXIMUM AVAILABLE 

fMEMORY T 

I IF SO THEN GO fO 51 

pMAKE P2 POINT TO TRAP VECTOP+2 FOP NXM 

tSET PiW TO 340 

iset up return address from trap to 9i 

itry to wpite to non-existent memory (should trap) 
»»errOr» report errOp message and halt at fathlt 

)«ft««««ERR0R NUMBER i|««««»« 



fRESTORE TRAP VECTOR 



ICAUSE R0 TO POINT TO THE SAME CHIP 

ILOCATION IN THE NEXT 4K MEMORY BANK 

JBY ADDING 1 TO THE 14TH ftIT OF ADDRESS IN 

fCOMpARE p0 WITH THE HIGHEST MEMOpY 

ILOCATION WHICH IS STORED IN R5. 

>1F R0 LESS THEN REPEAT THE TEST 






3.nCl?533 .•5-«aP-79 «fl02 OaGE 34 
?«.»«X5,'»9 P?!?? Tl CHrCK Ol/nO LINfS 






•;.'3l4«. 'i2T}i y^-z^X 



:»TEST J CHECK DI/DO LINES 

i*l\'i T"IS TEST CHSC^S THE DAtI/D»tO LP'ES RY SHIFTING 

%* A 1 IN THE WORD DIRECTION 

^^404 TSTii f"PB «^,R«|TESTN jCHfCK rOp PpOpFR TEST SEQUFNCE 



•65? 
t*5 9 

1661 

ie6J 
1604 

!^^7 

1^7^' 

lfr7j 
^^7J 
U74 
^^75 
^^7^ 
^^77 
167P 
|67«» 

tct»l 

Uti4 
1^«^!. 
teSo 

I6II7 

1Pii4 
U90 



•■'9 2 '."J 4 

■^022.^2 

i»0l?1.' 
•'n22U 
»»027|4 

»H'7 27o 






iH'?;44' 

in'7i4i 

»n ?i4p 
•ni2 J5o 

i»0 7 2S4 
•♦03afr4 



.•.^!4.'3 

.■•.'4 76 7 

!»^'"'312 
P177,.,» 

iMiU'0 2 
I' 1 OP 11 
o2inM I 
01' 1 40 1 
oo47h7 

t'OOOl I 



oo"i7o^ 
o%'>\ 4 01% 
OOP Joi> 



0O?iU llM^f^ft 



0»37»M» I7t17« 
0007fr/ 

0002M 
OOMO,' 

10$7««7 

«'2.'lo3 
1017^,1 
O0O717 





PEQ 


.♦10 




JSP 


PC, 


,SE0Epp 




12 






HI 


MOV 


«!/ 


,R0 




MOV 


P'^ 


»r2 


2*1 


MOV 


P. -I 


»(Pl) 


m 


(•MP 


R:-| 


^Chj) 




MFU 


41 






.IftP 


PC, 


,tPROR 




U 






4»t 


TST 


P? 






BIO 


!^» 






ASl 


Pi 






^CC 


28 






r!R 


P7 






MOV 


M" 


r777§,p(» 




HP 


38 




*ll 


SFC 








rOI 


R>' 






BC5 


71 






ADD 


B7f^00O»Pl 




CMP 


Rli 


.P5 




BLO 


H 




ENDii 


BP 


f\D(^ 



»«EpROp# REpOpT rppOp MrssAGK AND HALT AT FATHLt 
l«»««««ERPOP NUMHEP i2«»«««« 



»SET p2»1 

fMOV 1 AT LOCATION (Rj) 

ffOwpApT Rl k«lTH THE CONTENTS OF LOCATION (pi) 

l«FnpOp» REPORT EppOp MRSSARE 
|«««»»«ICHROR NUHBCR n«»»«*« 



iARF ^E shifting a in data DIPECTIQN? 

»IF S" THEN GO TO 51 

ISHIFT THE I BPOUGHT IN AT H I^" 

fOATA DIRECTION 

fir tVt 1 HAS NOT BEEN SHTFTEr THRU 

iTHf 16 DAT* BITS THEN pfpEAT FpO** 21 

fINlTTATF SHIFTING Of IN DATA DIRECTION 



fSET C BIT 

fSHIFT A 16 TlMFg IN DAtA DIrECtION 
JIF THE HAS NOT BEEN SHIFTED THRU 
ItHF 16 DAT* BITS T^EN pEpfAT FpO^ 21 
fOTHERWISE GO TO THE NrXT BANK OF 
I4K MFMOpy AND pEpEAT T^E TEsT 



eZKMAF.Pti 05-MAP-7q t>9j^"2 T2 TEST Hff'OpY FOR NOLnl'^G DAT* AND bYTE SELECTION 



!69l 








1692 








1693 








1694 








1695 








1696 








1697 








1698 








1699 


002266 


122737 


0('00«^2 


1700 








I7ni 


002274 


00140 3 




17(^2 


002276 


004767 


0V'366 4 


1703 


002302 


000014 




1704 








1705 


002304 


013700 


000316 


1706 


002310 


110021 




1707 


002312 


111721 


0P031 7 


1708 


002316 


020105 




1709 


«'P2320 


U'3771 




1710 








1711 


002322 


020041 




1712 








1713 


002324 


001416 




1714 


002326 


062701 


00(100 2 


I7l5 


002 3 32 


123741 


000317 


1716 


002336 


0014'^2 




1717 


"02340 


120041 




I7i8 


«02342 


001002 




I7l9 


002344 


105237 


000 3ni 


1720 


002350 


042701 


00000 1 


1721 


002354 


004767 


003250 


1722 


002360 


000015 




1723 








1724 


002362 


02(^104 




1725 


002364 


if^use 




1726 


002366 


000337 


0o,'3j 6 


1727 


'»02372 


001744 




1728 








1729 


002374 


000733 




1730 








1731 








1732 









;«TEST 2 TFST "F^'OPY FOR HOLDl^'G DATA AND BYTE SELECTION 

|»(n tUS test checks the ^'EMOrY FOp THE CAPABILITY 

;# or HOLDING 1 'S AND 0'S ^Y WRITING A BACKGROUND 

,» or PAKpAT AND READING IT 

}»(2) MEMORY IS WRITTEN USP^G A BYTE AT A TIME 

!«C3) S'^EPS 1 t 2 ARE RFpFATED wlfH A SWAPPED BACKGpOljND pATTtp"^ 



5^00404 TS'''2! c^•pe 

BEQ 
JSP 
14 

ISI MOV 
^'OVB 
MOVP 
CMP 
BLO 

281 CMP 



481 



«?#0S8TESTN 
. + 10 

p^,seoerp 



jCHFCK FOR PROPER TEST SEQUENCE 



I»EprOr» pEpOrt ERROr MESSAGE AND HaLt AT FATHLt 
;««««»«EPR0R NUMBER l^^**^^* 



9«BAKPAT,R0 

R(#CRn + 

0i!PA»<PAT*i,CRi } + jWRlTE tHe HEMORY wITH THE WORD STOpED IN BAKpAT 

PI #P5 

IS 

Ro,-(Rl) ITEST THE MEMORY TO SEE IF IT CONTAINS 
jtHE -JObD STORED IN BAKpAT 

ia»PAKPAT+l,-(Pl)»CHECK FOR BYTE SELECTION PPOPLEM 

fAGAlV CHECK FOR BYTE SELECTION PROBLEM 

JPPEPARE TO INFORM THAT IT IS ADDRESSING EPROn 
JMAKE THE ADDRESS IN pl EVEN 
}«EPR0R» REPORT ERROR MESSAGE 
j»«»»##ERr0r NyMBER 15»«#«»» 

iKEEP ON TESTING THE MgMOpY UNTIL 
iRl Equals tHF LOWEST ADDrEss 
»CHANGE THE DATA PATTERN 
>IF THE DATA PATTErN DOFs NOt HAVE LOw 
} BYTE 80 THEN FALL THRU 



JTHE TEST LEAVES PAKPAT LOCATION tHE SA^E AS IT WAS I^ THE BEGINNING 



BEQ 


PS 


ADD 


82, PI 


CMPB 


ia»PAKPAT' 


REQ 


4S 


CMDB 


Pt^^-CRl) 


BNF 


6S 


INCB 


SiSADERR 


BIC 


«1 #pl 


JSR 


PC, ERROR 


15 




CMP 


P1,P4 


PHI 


28 


SWAR 


flsBAKpAT 


BFR 


IS 



CZKMA MACYll 30A(1052) '15-MAR-79 09|02 PAGE 36 

CZKMAF.Pti 05«.MAR-7g 09|02 T3 r^l'AL AD^P'^SS TEST A 



SEQ 0036 



1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
174P 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
17S7 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
l765 
1766 
1767 
1768 
1769 
1770 
l77l 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 



•»TEST 



002376 
002404 
002406 
002412 

00)2414 
002416 

f02422 
"02424 
002426 
00243*' 
007432 
002434 
002436 

002 440 
002442 
002444 
002446 
002450 
^02452 
002454 
002456 
00246'^ 

002462 
002464 

002472 
002474 
002476 



122737 000003 
00140 3 

004767 003554 
o>00016 

005003 

(^04737 00012.-^ 

005002 
050302 
020204 
103465 
020205 
103077 
000 31 2 

(105001 
050301 
020K4 
103445 
020105 
103053 
020102 
001431 
020011 

0014 37 

12767 000017 

Pi0046 
000316 
02961 1 



000404 TST3J 



4$t 

6S| 



000032 



002500 001003 



002502 012767 00002f 000014 



3 
,« 

l*(2) 

»■» 

J*(3) 

J*(4) 

»*C5) 

C'PP 

HFO 

16 , 

CLP 
>JSR 

CLP 

BIS 

CMP 

BLO 

CWp 

BHIS 

SWAP 

CLP 

BIS 

CMp 

BLO 

CMp 

BHIS 

CMp 

BEQ 

CMp 

BEq 
HOV 

MOV 

SWAB 

CMP 

PNE 



pt-AL ADDRESS TEST A 

T^IS TEST CHFCKS FOR DUAL ADDRESSING PROBLEMS BY WRITING A 

PfiCK GpOuND OF BAKp»T. 

STARTING FRC'"< THE LOWEST LOCATION IN THF BANK THE TEST WRITES A 

LrCATlON wItH S'WApPED BAKpAT 

prArs THE MEMORY FOP PROPFR CONTENTS 

SHIFTS A 1 ALONG THF ADDrFSS DIRECTION AND REPEATS STEPS J*3 

pi^PFftTS STEP 1-4 FOP EACH 4K RA'^iK 



«ll,fl«STESTN 
Pf-fSEOFPP 



pC,fl»»^pTMF»' 

P7 

P3»P2 

R?,R4 

16S 

P?»p5 

R1 

P^»P1 

Pl ,P4 

128 

Pl »n5 

15S 

Pl,p2 

P'%(P1) 

128 

"17,228 

Pf.,-CSP) 

(SP) 

(SP)*,(Pi) 



002510 
002514 
002516 
002520 
002324 
002326 



105237 000301 
010046 

010200 

^•04767 003104 

000000 

012600 



MOV 


«20.228 


INCB 


(HIAOEPP 


MOV 


R0I-CSP) 


MOV 


H?»P0 


JSP 


PriFRpOp 


.WORD 




MOV 


CSP)*»R0 



lCHFCi< FOp PROPER TEST SEQUENCE 



;»EPPOR# REPORT ERROR MfsSAGE AND HALT AT FATHLT 
j»«»«»#ERROr NUMBER 16**»#»» 



J WplTE MEMORY WITH tHF PACKGpOuND stOrED 
:AT LOCATION BAKPAT 

r-'AKE P2 POINT TO THE ME^'ARY BANK POI^JTED BY R3 

»IF R2 Is LESS THAN p4 

ITHEN DO NOTHING 

>TF r2 Is HIGHFp THAN THE HIGHEST LOCATION tO BE 

ITESTFD THEN EXIT THE TEST 

IOtHEPwTsE WrItE the CO^'pLE'lENl OF BAKpAT IN 

>THE LOCATION POINTED BY P2 



HF Rl Is POINTING TO A LOCATION LOwEp THAN r4 
jTHEN go TO 128 



fCHECK THE mrmOrY FOr COrrECT DAtA 

»Tr Rl Is NOT B TO r2 then (Rl) SHOULD HAVE 

»THE SA^E WORD AS BAKpAT 

HN hHlCH CASE GO BACK tO 126 

f»EPPOR# SETUP ERROR NO, IN 228 

j*««#«»Erp0r Number »17«»»*»« 

fPLACE P0 ON THE STACK 

lir (Rj) IS NOT a P0 THEN SEE IF IT IS SAME 

?AS A SWAPPED R0 

;ir NOT THEN A SUSPECTEf DUAL ADDRESSING PROBLEM 

>F0r the RlTS THAT ArE DIFFERENT IN r0 AND (rD 

lOTHERWISF THERF IS DUAL ADDRESSING FOR THE 

JENTIRE WORD 

)»EPROR» SETUP ERROR NO, IN 228 

i»»»»»#EppOp Number »20»*»»«* 

lADDPESSlNG PROBLEM Is DETECTED 

fSAVE P0 

fSCT R0aGOOD ADDRESS FOR ERROR REPORT 

fGO TO THE ERROR SUBROUTINE 

fERPOp NUMBER TO BE REPORTED WILL BE PLACED HERE 

JpESTORE p0 



CEKMA MACYll 30S(JHS2) '35<»Map»7f 09102 PAGE 37 

CEKMAF.Pli 05»MAB«79 09|P2 f3 DVhl ftnnnrsS TEST A 



SEO 0037 



1789 


002530 


010011 






MOV 


P.3,(Bl) 


1790 


002532 


020037 


0PO316 




CMP 


RCfiSBAKpAT 




002536 


001 41 J 






BCQ 


128 




002540 


000407 






PP 


118 




002542 


oi003«0 




10tl 


SWAB 


Pp 




002544 


'^20011 






CMp 


pi)# (pn 


















002546 


001404 






BEQ 


111 




002550 


012767 


000C21 J 77746 


MOV 


»2t#228 


















002556 


000745 






BP 


PS 




002560 


000300 




usi 


SWAB 


Pf 


l8ni 


002562 


040301 




!28i 


BIC 


P3»Pl 


1802 


002564 


00S701 






TST 


Rl 


1803 


002566 


001001 






BNE 


138 


1804 


002570 


005201 






INC 


PI 


1805 


002572 


006101 




1311 


POL 


Pi 


1806 


002574 


020127 


020000 




CMp 


PI, #20000 


1807 


002600 


10372k> 






BLO 


78 


1808 


002602 


000312 




1581 


S»AB 


(p2) 




002604 


040302 




1681 


RIC 


Pl#P2 


















002606 


005702 






TST 


P2 




002610 


001001 






BNE 


lf«8 




002612 


005202 






INC 


P2 




002614 


006102 




1881 


pOL 


P2 




002616 


02C.227 


020000 




CMp 


P2»«20000 


















W02622 


103700 






BLO 


68 




002624 


060203 






ADD 


R7rp3 




002626 


020337 


001^340 




CMP 


R.I.HtMAXMEM 


















002632 


103673 






BLO 


48 




002634 


000317 


000316 


2081 


SWAB 


ftBAKpAT 




002640 


001656 






DEO 


TST3 


















002642 


000654 




ENP3I 


BP 


£•^02 



IRESTORE (BlJ 

I IF THE CONTROL CAME HERE FpOM 158"2 fHEN 

IRETURN TO 111 

(HAKE P0 SAME AS SWAPPED BAKPAT 

»IF Rl ■ p2 THEN Cpl) SHOULD CONfAIN A WOpD 

lEQUAL TO SWAPPED R0 

IIN WHICH CASE GO BACK TO III 

t«EPROP» SETUP EPPOP NO. IN 228 

f*«««##ERRQp NUMBER #21«»»### 

)AND GO TO 68 

IPEsTOpE p0 TO BAKPAT 

ITAKE OUT THE BANK ADDRESS FROM THE ADDRESS IN rj 

fIF Rl Is f THEN PLACE A I IN pi 

lOTHERWISE GO TO l3l 



nr Rl Is I'ESS THAN A 4K BOUNDrY 

ITHEN REPFAT FROM 78 

IpESTORE (R2) TO BAKPAT 

iTAKE OUT THE BANK ADDRESS FpOM THE ADDRESS 

»8T0RED IN R2 

fIF R2 » THEN MOVE A I TO R2 

fOTHERWiSE GO TO l«l 

ishift a one in the address word 

lis THE ADDRESS IN R2 "ORE THAN THE BOUNDRY 

JOF 4K 

J IF NOT THEN GO TO 68 

fOTHERWlSE MAKE r3 POINt tO T^E NEXT 4K BANK 

jIF R3 IS POINTING TO A BANK THAT IS LOWER 

jthan maxmem 

iTHEN REPEAT FROM 4$ 

IREPEAT THE TEST WITH SWAPPED BAKPAT ONLY IF 
fTHE LOWER BYTE OF BAKpAT IS ^ 
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DUAL ADDPFSS TEST B 



SEO 0038 



1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
lB4l 
1842 
1843 
1844 
1845 
1946 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 



002644 
002652 
002654 
002660 

002662 
002664 
002666 
002670 
002672 
002674 
002676 
002700 

002702 
002704 
002706 

002712 
002716 

002720 
002722 
002726 
002730 
002732 
002734 
002736 
002740 
002746 
002750 



122737 
0014P3 
^04767 

000022 

005003 
010100 
005703 
001401 
005100 
«*10021 
020105 
103771 

«^2004l 
001405 
li?5237 

004767 

000023 

010100 
162700 
005703 
001401 

005100 

020104 
101361 
112737 

005103 
001345 



000004 P»00404 



!*TEST 4 Dt«AL ADDPESS TEST 8 

»#(!) tKIs TEST CHECKS FOp DuAL AODpEssIf^G BY wrItING 

j» A^D PFADING THE ADDRESS IN THE LOCATION AND THF^ 

I» WRITING AND READING ADDRESS COMPLEMENT 

TST4I CMpB «4,9«$TESTN iCHECK FOp PROPER TEST SEQUENCE 

PEG .♦IP 

JSP pr,SEQEPP loEPPOp* REPORT ERROr MESSAGE AND HALT AT FATHLT 
22 f##«#«»EpROR NUMBER 22»#»»»# 



I IF P3 IS NOT THEN STORE THE ADDPESS 

UN THE LOCATlOiv 

lOTHERWISE STORE COMPLEMENT 

fOF THE ADDRESS 

lUNTlL THE HIGHEST MEMORY LOCATION is REACHED 



0«03<'l 
002712 



00000} 000306 



CLP 


PI 


MOV 


P1#P0 


TST 


R3 


BEQ 


28 


COM 


Ri;^. 


MOV 


pt^»{Rl)4- 


CMP 


Pl»P| 


BLO 


18 


CMP 


Pc.«(Rl) 


BEQ 


48 


INCE 


PKSADFPP 


JSP 


Pr,ERPOp 


23 




MOV 


R1,P0 


SUB 


»7»p0 


TST 


P3 


BEQ 


58 


COM 


R(? 


CMP 


RI»P4 


BHI 


38 


MOVB 


•t,««pAsrLG 


COM 


P3 


BNE 


18 



\ 



002752 000733 



PR 



iCHECK THE LOCATION FOP THE CORRECT CONTENTS 

ITHIS IS PROBABLY ADDRESS PROBLEM pATHEH THAN 

IHIT PROBLEM 

|#EPROR# REPORT ERROR MESSAGE 

I«»#»#»ERR0r NUMBER 23»»#«»« 



ICHECK THAT THE ADDRESS Is STOrFD At 
ILOCATION IF R3 IS NOT 
lOTHERWISE CHECK FOR 
lADDRESS COMPLEMENT 



>sEt pAsFLC FOr ErrOr pEpOpT, 

ICOMPLEMENT THE CONTENTS OF R3 

IpEpEAT TST' I^ r3» Ip "0*^ 0» ENABLING ADDrEss 

ICOMPLEMENT TO BE WRITTEN AND READ, OTHERWISE FALL THRU 



CZff^'AF.P!! (^5-WAP-79 P9,f-2 T5 ^'ARCHING ^ 'S AND 



) 



1866 
1867 
1868 
1869 
t87t^ 
t87i 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1981 
1882 
1883 
1884 
1865 
1886 
1887 
1888 
1889 
l89e 
t89i 
1892 
1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
I9i3l 
19P2 
1903 
19P4 
1905 
19«6 
19(^7 
19fc:8 
1909 
1910 
l9l 1 
1912 
1913 
1914 
1915 
1916 
I9i7 
I9l8 
1919 
1920 
1921 



P02762 
032764 
0v)277ci 



0k12776 

003fl0fr* 

iH1l0«2 
1503006 

00 3^10 
00 3012 
003^^14 
003016 
003020 
003024 



003026 

003030 



003032 1*057(^3 



j»TEST 5 'UPCHING \*S A^D ^'S 



; I «»»»»»»»«««#»#««»*«»» 



l»Cn T'-I? TEST "SPITE'S A PACK GpOu^D OF tHE wOpD SlOpFD 

;» AT RAKPAT, 

?*(2) pFADs EVEpY LOCAjIO^ FOp COppECT TAfA, si^ApS PYTEp 

j« AT THF LOCATION AVP P«?OCFEDS IN ^'AX, TO ^Ih 

j« nipfcCTiov OF memopy locations, 

l»(3) P^ATS EVERY LOCATlOi; FOP S-^APPED BAKpAT PATTEPN 

»« WtlTfj; PAKpAT BACKGpOnf-r I^ ^HE LOCATl^^f A^D PROCEEDS 

!« r »-*IN, TO ''AX, DIRECTION 

>»(4) prpFATS STEP 2 GOP-G I^ Hpi. jO MAXi OlpEfTlON 

.«(5) PFPFATS STEP 3 GOI»-G IN ^'AX. TO WIN, DIPECTIO^ 

; I »»»«»#»«#«»»*»«»»**#»»»■»»»■»«»»«»»####•»«»»•♦##•»»♦«*•»««##»#«»» 

122737 pp'it^t.r5 vitfi^c^^ TST5I CN'PB «5,a«8TE5TN iCHFCK FOP PpOPEP TEST SEQUENCE 



001403 

004767 0f'3l76 

i'ni0024 



002772 (^04737 00-^120 



0200*1 
0(;i4t^3 
004767 0t'2622 

(A i^ (31025 

Pi0M30'^ 
m001 1 

t'2l 100 

«01 403 

«04767 0^'2604 

000026 

000300 

00102 3 



181 
2SS 



381 



003034 
00 30 36 
003042 

00 30 4 4 
003046 



001023 
t'627ni 
02*^105 

1030C6 
2001 1 



BEO 
JSP 
24 

JSP 

CMP 

BFq 
JSP 
25 

SWAP 

C'P 
BEQ 
JSP 
76 



SWAP 

e^E 



RNE 

Apr 

CMp 

PHIS 
CMP 



pc,sfqepp 

P'",«s'vPTMEM 

P- #-CPl) 

3S 

pr,FPPOP 



R'-,(P1) 

4S 

P':,FRPOF 



8?, Pi 
pi »t:5 



Pc.CPl ) 



>»FPP^R* pEpOpT FppOp MESSAGE AND HALT AT FATHLT 
!»#«»#»EPPOP MJHBEP 24««»»»» 

jGO TO WRITE TWE ^'E'^OPY v-lT^' A BACKGpOU^D OF THE 

I^OpD STORED IN BAKpAT 

jREAD THE CONTENTS OF LOCATION POINTED BY Rl 

JT^^ SEE IF It has tHF. s^'^F VALyE As PP* 

;#EPROP» REPORT ERROR MfesSAGE 

•«»»»«#EppOp Nij''"BER 25»»««*» 



JS*AP THE BYTES AT (pl) 
fPEAD (Pl) FOP CORRECT VALUE 

j»rpROP* REPORT ERROR MfSSAGE 
j»#»»»»ERpOp NUMBER 26»»«**» 



|S*AP THE BYTES OK THE REGISTER 
ICONiTAl'^'ING BACGpOu'^O PATTER^ 
I IF THE LOWER BYTE OF THE REGISTER 
Us ^Ot THEN THE ppOGpAM T5 pEADlNG 
jTHF ''EMORY TO COMTAlf' A BACK GROUND OF 

•PAKPAT AND WRITING THE SWAPPED KOPD 

llN WHICH CASE GO TO 98 

• nj WAS WHEN THE PROGPA^^ FNTEPED 

StHIs TEst» A'^D It is ^""n ALtFrED u'^tIL pAsFLG«3 

jl'^ P3 EQUAL THEN THE PROGRAM IS 

jpEAniNG/V.RlTl'^G "IN, tO MAXi OtHFr*IsE 

JTT IS GOING I^ MAX, TO MIN, DIRECTION 

»TF r3 Is NOT CLEAR THEN GO tC 10$ 

jnTHEPWlSF Ann 2 TO THE CONTENTS OF Rl 

;CO^'PARE pl wItH the «'AX. ^'EM'^PY LOCATION ^0 

jBE TESTED 

JIF P1>P5 THEN GO TO 8$ OTHERWISE 

jPEAP (Bj) FOP THE CORRECT DATA 
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1922 


003050 


001757 


1923 






1924 


00 305 2 


004767 0075'S2 


1925 


00 30 56 


O0P027 


1926 






1927 


00 3060 


0^0753 


1928 


003062 


105237 0f03f6 


1929 


00 3066 


Ci0ei300 


1930 


003070 


001742 


1931 






1932 






1933 


001072 


'/05103 


1914 


001074 


01^^401 


1935 


00307b 


000763 


1936 






1937 






1938 


00 3100 


'^05703 


1939 


00 3102 


001353 


1940 






1941 






1942 


00 3104 


020104 


1943 






1944 


00 3106 


10 13 3 3 


1945 


003110 


105237 00'^3c^6 


1946 


003114 


i*(^(»30-^ 


1947 


003116 


001753 


194P 






1949 






195? 


00 3120 


(Hi0 7i 4 


1951 







'9102 
T5 


PAGE 40 

••'APCHI 


nn , 's AND 




BEO 


38 




JSP 
77 


Pr,ERPOp 


PS» 


BP 

INCB 
SWAP 
BEO 


3S 

PePASELG 

p.- 




coy 

^Ov 
HP 


P3 

H'JfPl 

7S 


9S| 


tST 
PNE 


Rl 
5S 



Rl»P4 



BHT 


7S 


INfP 


aepAsFLG 


Sl-AP 


PM 


PFQ 


7s 



END5I PF 



> *PITF COMPlEMENT OF THE DATA FOUND ^T (Pl) 
JAND REPEAT UNTIL Rl > r5 
j«EPROp« report ERROR MESSAGE 
}»»«»«»ERPOr NyMBER 27»«»*»* 



JIF THE LOisFp BYTE OF R0 Is ALL 0'S 

jTHEN BEGIN READING BAKPAT S»JAPPED WRITING BAKpAT 

:aND pEADIWG BAKpAT GOING FpOM ^AX, T" »^ I ^ , [FAsFLGa4) 

JOTHEPWISE CLEAR Rpt 

>PUT tHE LOkEst tEstI^G ADDpEss I*' pl 

}AND BEGIN PFADtNG 0'S, WRITING j 'S AND 

!pERDTfJG I's IN Miw, fO max, DIRECTION CPAsFLGa3j 

»IF H3 IS NON 0, I.E. PASFLGB3 

STHEN READ BAKpAT* WrItE 

fS«*APPED PAKpAT AND READ SWAPPED PAKRAT 

HN ^*IN, TO "AX, DIRECTION 

jOTHFRWiSE TEST IS PROCEEDING IN MAX, TO 

»MIN, DTRFCTION, 

jKFEP ON LOOPING UNTIL P1SP4 



I IF P0 SWAPPED HAS LOWER BYTE«0 

jTHFN READ RAKPAT SWAPPED, WRITE PAKpAT, 

lAND READ BAKpAT GOING FrOM MIN, tO MAX, 
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FLLs* vOrAflLItY tEst 



SEO 0041 



1952 








1953 








1954 








1955 








1956 








1957 








1958 








1939 








1960 








1961 








1962 








1963 








1964 








1965 








1966 








1967 








1968 


003122 


J22737 


000006 


1969 








1970 








1971 


003130 


001403 




1972 


003132 


004767 


00303^^ 


1973 


003136 


000030 




1974 








1975 


00 3140 


004737 


000120 


1976 








t977 


003144 


005037 


0t'>P3f^6 


1978 


003150 


P104C13 




1979 


<«03152 


010401 




1980 


003154 


02(»011 




l98i 


003156 


0fil403 




1982 


'103160 


004767 


0024 44 


1983 


003164 


0fic^03l 




1984 








1985 


003166 


P627P1 


00(^002 


1986 


003172 


('201(^5 




1987 


003174 


103767 




1988 


003176 


132737 


00PS003 


1989 


003204 


5^01002 




1990 


003206 


105237 


0003^16 


1991 








1992 


003212 


020303 




1993 


003214 


103012 




1994 


003216 


012702 


037776 


1995 


003222 


000313 




1996 


003224 


005302 




1997 


003226 


(^01375 




1990 


00323P 


M10337 


00f.354 


1999 


003234 


0627(^3 


02«»0n0 


2000 








2001 








2002 


«10324^ 


P00744 




2003 


003242 


105237 


0Pi03(^6 


2004 


H03246 


00C1337 


000316 


2005 


003252 


001732 




2006 


an3254 


n0«7?i 





t^TEBT 6 CFLLS' VOLATILITY TEST 

|«(n THIS TEST WPlTFS THF MEMORY WlfH A BACK GpOUf^D OF BAKpAT 

J»(23 wTtH pAsFLGa0 jHE TEST RESDS THE MeMOry FOr BAKpAT 

J* At'D THEN INCPE^'ENTS PASFLG 

f»(3) It THFfJ pEADg/st^Aps BYtSs/wRItES A LOCATION X FOr 

l« nvEP 2 MSEC AND THEN READS THE MEMORY FOR BAKPAT 

f»(4) prpFATS ST^IP 3 WlfH X«X + ^^ uNtIL END OF ^*EMOrY IS ENCOu^'tERFD 

l»C5) It THFN increments PASFLG AND WPITES THE MEMORY TO 

f* BJKPAT AND WITH PASrLGB2 IT READS MEMORY FOp ALL 

I* S-APPFD PAKPAT AFTER I^HICH PASFLG IS INCREMENTED TO 3 

j«(65 rFPFAtS STEPS 3 AND 4 pEADiNG T^E MEMOrY FOp SWAPPED 

j# RAKPAT INSTEAD Of BAKFAT, 

000404 T5T6I CMPP i*,,®»STESTN jCHFCK FOp PROPER TEST SEQUENCE 



l#EPRf^p# REPORT ERROR M|SSAGE AND HALT AT FATHLT 
I »##«»#ERPOR NUMBER 30#««*«« 

jGO TO l^RITE THE MEMORY WITH A BACKGROUND OF THE 
fWOpD STORED AT LOCATION BAKPAT 

ISET P3 

jAND Rj TO THF STARTING ADDRESS OF MEMORY UNDER TEST 

fCHFCK Cpl) FOR CORRECT DATA 

J«EPR0r» REPORT ERROR MESSAGE 
I »«*#*#ERHOR NUMBER 314»»»»»# 

lINCRFMENT PI PY 2 

fSEF IF Ri HAS REACHED THE MAX, OF MEMOpY 

SCHECK tO see IF pAsrLG«0 Or 2 

UN WHICH CASE INCREMENT pAsFLG COuNfER RY I 

JSEE IF R3 HAS REACHED THE MAX, OF THE MEMORY 

H<^RITE INTO 1 LOC FOR >2MS (ABOUT 100MS) 



) 





BEQ 


e*5 




JSR 


Pr,SEQFRR 




30 




RPT6I 


JSP 


Pr,3«WRTMEM 




CLR 


P«PASFLG 


111 


MOV 


pa,p3 


2Sl 


MOV 


H4,Rl 


3SI 


CMP 


r^^CrU 




BEQ 


4S 




JSP 


PC,EPP0P 




31 




4SI 


ADD 


«?»P1 




C*'p 


r1,r5 




BLO 


3S 




BlfB 


«l#3«pAsFLG 




PNE 


5S 




INCR 


sapAsFLG 


511 


CMP 


P.1,P5 




BHIS 


7S 




MOV 


S37776,P2 


6SI 


SWAB 


Cc3) 




DEC 


R2 




PKE 


6S 




MOV 


P3,aifSAVL0C 




ADD 


#2^*000* p3 




PR 


2S 


■^8« 


IN'CP 


OjfpASFLG 




SWAP 


igPAKPAT 




PFq 


rPT6 


END6f 


BP 


E'D5 



m 



JSAVE LOCATION WRITTEN FOp 2f'S FOR ERROR REPORT, 
?BY AHDING 1 tO tHE HxH ADDRESS PIt CAusE 
5R3 in POINT TO A LOCATION IN THE NEXT 
|4K BANK OF MEMORY 

f^•AKE PASFLG=2 

jTF BAKPAT IS NOT BEING SNAPPED FOR THE 2ND 

ItHEN go back fO THE LOCATION rpt6 
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CEK«AF,PU 05»MAP«7g 09fP5 T7 SHIFTING TI^GONAL 



2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
21*23 
2024 
2025 
2026 
2027 
2029 
2029 
2030 
21^31 
2032 
2033 
2034 
2035 

2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2l?47 
2048 
2049 
20S0 
2051 

2052 
2053 

2054 
2053 
2056 
2057 
2058 
2059 
2060 
2061 
2062 



;«TEST 7 SHIFTING DIAGONAL 



003256 122737 



003264 

003266 
003272 

003274 

00330<^ 

003304 
003306 
003312 
003314 
003316 
003320 
003322 

003324 

003330 

003334 
003340 
003342 
003344 
003330 
003334 
003356 

003362 
003364 



003372 

003374 



00340t« 
003402 
003406 

003410 
003414 
003416 

003420 



H0l 4c3 
004767 
000032 

005037 
010337 

010302 
^•52702 
005202 
001 4^2 
M20502 
103001 
010502 

010337 

013701 

013700 

020103 
001010 
062703 
032703 

00J402 
062703 
000300 
132737 



001001 

010011 



003376 0200U 



002674 



0t'>0 3fri6 

000304 



017777 



000302 
000304 
000316 



000002 

0(>i0l76 



000200 

0000f»! 



000404 



00140 3 

004767 002222 
000033 

062701 000002 

020102 

103746 

005237 000410 



TST71 



TMTs TEST WPTTES THE '^E'^OrY WITH A BACKGROUND OF BAKPAT 

It writes a niaGO?'Al, OF SWAPPED BAKpAT tHrOuGH EACH MeMOry PA^K 

PFADS THE MEMORY FOp CORRECT DATA 

SHIFTS THE niAGONsL A^D REPEATS STEP 3 llNflL THE 

DTAGO'^AL HAS BEEN SHIFTED 64 TI^ES 

V^hItES a BACKGROUND OF SWAPPED BAKpRT" A DIAGONAL OF 

RaKFAT AND REPEATS FROM STEP 3 

C^PB »7,f33$TFSTN jCHFCK FOp PROPER TEST SEQUENCE 



*(1) 
eC2) 
«(3) 
«C4) 

»C51 



3S8 
4SI 



^$1 
000306 10SI 



1411 
1611 



BEO 
^SF 
32 

CLR 
^lnv 

MOV 

f^IS 

IhC 

PFQ 

CVp 

BHIS 

K-Ov 

MOv 

MOv 

MOv 

CMP 

PNE 

ADD 

PIT 

BFQ 

ADD 

SKAP 

HItP 



HNt 
MOv 

CMp 

PEG 
JSP 
13 

ADD 
CMp 

BLO 

INC 



. + 10 
PC^sEqEpr 



8«PASFLG 
pl^aSLOwP^K 

R3»P2 

8l7777»R2 

P? 

3S 

R'^#B2 
4S 
p5,p2 

r3»8SsTPTDI 

eaLOwRNKopl 

3«BAKpAt»R0 

PmP3 

1"! 

«2#P3 

Sl76,p3 

66 

S?00,p3 

H(- 

9] fSiPAgFLG 



171 

Hl'# Cpl ) 



ri^jCpH 



HI 

PC, FPPOP 



S2»P1 

P1»p2 

61 

iSSDEVCT 



S«EprOr# pEpOpT ErrOr MFssAGE AND HALT AT FAtHLt 
;«»#»*^EPROP NUMBER 32*«««*» 



JLOwBNK CONxAlMs ADDpEsS OF tHE LOs^EsT LOCATION 
J IN THE 4K BANK THAT CAN RE TESTED 

|P2 CONTAINS THE ADDRESS '^F THE TOP OF THE BANK 

fADD 1 TO POIJ^'T It TO NEXT BANK 

IRRANCH IF ZERO (iT MUST BE A 30K SYSTEM) 



?IF P2 IS GREATER THAN P5 THEN 

tNOw r2 CONjAINs the ADDrEsS OF 

jTHAT CAN BE TESTED 

ILOAD STRTDI with tHE stAriING 

»!)IAGONAL 

IrI la NOw pOlNjING tO xHE LOwE 

jBANK 

JSTOpF THE CONTENTS OF PAKpAT I 

flS Pi POINTING TO A LOCATION I 

fIF NOT THEN GO tO 101 

ITHF FOLLOWING CODE IS USED TO 

lADDpFss or tHE NEXT LOCATION I 

jIN P3 



GO TO 4S 
THE HIGHEST LOCATION 



ADDRESS OF THE 

ST LOCATION IN THE 4K 



N R0 

N THE DIAGONAL I 



PLACF THF 

N tHE DIAGONAL 



BACKGROUND PATTERN 
LL BE rvFN IF fHE 
WILL Pt ODD 

GO TO 128 

H THE CONTENTS 



fOIAGONAL WILL CONTAIN SWAPPED 
ICOMfENTS OF LOCATION PAsFLG wl 
|MKMORY IS BEING WRITTEN ANH If 

nr It is only being read 

fIF IT !S BEING READ ONLY THEN 
inTHERrtlgF WrItF the MEMOpY wll 

I or He 

ffMFCK THE !l>rATlON POINTED BY Pl TO CONTAIN 

fpflOprp DATA 

fIF IT 13 OK THIN GO tO 14I 

|SEPP0B» piPORT I;RROr HfSSAGE 

|«9«®»»rHHUH NliMREH 33»#«««« 

fCAusr n\ TO point to the next memory location 
Hi It thi. end or the hank I 
fir not thf.n go to 6s 

ptsll ^pt we Apr sTiL running okay 






t7 
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SHIFTING I TAGONAL 



SEu t^w43 



) 



206 3 


003424 


105237 


00^306 


2064 


01^3 4 30 


013703 


000302 


2k^65 


003434 


132737 


00V100 1 000 306 


2tr'66 


0K3442 


001 3 3v* 




2t^b7 


00 3 4 44 


005 77 3 




2t^fe8 


00 34 46 


02'i302 




2069 


00345.' 


103003 




?P7(» 


001452 


105737 


000 306 


?l?7i 


003456 


100322 




2t^72 


003460 


0137(^3 


000304 


2^73 








2ii74 


003464 


0003 3 7 


000 316 


2075 


00347ct 


001715 




2t^7 6 








2v^77 


003472 


010203 




2fr'78 








21^79 


003474 


020205 




2080 








2081 


003476 


103676 




2082 


00 3500 


000665 





J*JCB 


»8PASFLG 


uny 


B*STPTDI #p3 


PITP 


»t ,a8PASFLG 


BNC 


4S 


TST 


fl-3)* 


fMp 


R3»p2 


FHIS 


tPS 


TStP 


pepAsFLG 


PPL 


4S 


MOy 


0«i.ns,f.NK»p3 


SWAP 


asBAKfAT 


PFO 


4« 


MOV 


P7»P3 


CMP 


P2,P5 


PLC 


2* 


BR 


e:' D6 



JlOAD r3 wItH the STApTiNG ADrpESS OF T^'f DIaGONaL 

IHAS THF READ OF THE ^'F^'OpY Bf F^■ DO^E ? 

IIF NOT THEN GO TO 4S 

}ADD 2 TO THE STARTING ADDRESS OF THE DIAGONAL 

lA^D UNLESS THE F^D OF T^F BA^K I5 REACHED 

I 

lOp THE DIAGONAL HAS PFf^^ rCtAtED 64 flMEs 

JPEPEAT FROM 48 

I^AKE r3 point tO the LOwEsT LOCATION I^ THE 

I IN THE BANK UNDER TEST 

fAWn IF THE TEST HAS NOT BEEN PFRFOPMFD WItH THE 
iSwAPPFD BACK GpOuND PATTERN THEN GO tO 4S 
l^'AKfc THE PRESENT HIGH POUNDRY AS THE NEXT 
now 40UNDRY 

JUNLESS THE PRESENT HIGH BQuKDpY IS ALsO THE 
;HIGH HOiiHPpY FDR THE MEMORY UNDER TEST 



CZK^'AF. 


Pll 05-H;ip-79 


09102 


208 3 








2084 








2085 








2086 








2087 








208 8 








2089 








2090 








2091 








2092 








2ki93 








2094 








2k^95 








2096 








20 97 








2098 








2K99 








2100 








2101 








2102 








2103 








2104 








2105 








2106 








2107 








2108 








2109 








2110 


003502 


122737 


0P0010 


2111 








2112 


003510 


001 40 3 




2113 


003512 


004767 


002450 


2114 


003516 


Hi^H0 3 4 




2115 








2116 


00 3520 


010402 




2117 


003522 


052702 


017776 


2118 








2119 


003526 


062702 


00 '^00 2 


2120 


003332 


001402 




2121 


00 33 3 4 


020205 




7122 


003536 


101401 




2123 


1103540 


010502 




2124 


003542 


005046 




2125 


003544 


010200 




2176 


CT03346 


013740 


000316 


2127 








2128 


0035S2 


020003 




2129 


003554 


101374 




7130 


003536 


010301 




2131 








2132 


003560 


023710 


000316 


2133 








2134 


003564 


001410 




7135 


003566 


010001 




2136 


H03570 


013700 


000316 


2137 


003S74 


004767 


002030 


2138 


003600 


000035 





jlp 



pEAD pICOvFpY GAl.lO^l^iG T^ST^^'VEpY ^^xh CELL 



S^lQ 004 4 



}»1FST li< 

;«(! ) 

»* 

l«{2) 

• » 

f»(3) 
J«(45 
;*C5) 

t* 

J»(7) 

i» 

|«(8) 
J«(9) 

f«(l0) 

I* 

l*(ll) 

>»n2) 



:«(131 



000404 TSTk^i CMPP 





PEQ 


.♦H' 




JSP 


pr ,sCqEpr 




34 






MOV 


R4,P2 


RPTi^l 


His 


»l7776,p2 


GALLOpI 


ADD 


8?»p2 




BFQ 


1* 




CMp 


P?»r5 




BLOS 


2« 


HI 


MOy 


R-^^F? 


2M 


CLP 


-fSP) 




MOV 


P2,P0 


411 


MOV 


inBAKPAT, 




CMP 


P0#P3 




PHI 


4S 


611 


MOV 


P3»Pl 



CMP 



ppAD F-FCOverY G4[.L0plNG TFST/FVFPY 64TH CELL 

TI'IS TEST WRITES THE MgMOpy KITH A BACK GROUND PATTERN 

STORED AT LOCATION BAKRAT 

TJ-ST PECINS AT LDi^'EST LOCATlOfi BEING TESTED 

(TFTS NAME IT 'A') 

LfTS liAN'K THE 1ST LOCATlO^i TN tHE ROw/COLU^N U^DEH TEST AS 

5 APS BYTEs FOR LOCATION 'A'. 

READS 'A', READS 'B' 

»uf s #B»+200 (MAKES 'B'B64tH CFLI I,E, 200TH OCTAL 

inCATlON FROM THE PRESENT LOCATION OF 'h') 

PFPEATS STFps 5 AND 6 u"^Tn< 'B' Is GrEAtER tHAN t-HF 

E'D OF THE 4K BANK OF THE MEMORY IN wHlCH 'A' IS RESIDING 

A a A + 2 

Ri-PFATS STEPS 3-8 UNtILL 'A' REACHES THE END OF THE BAN^ 

G'-'ES TO THE NEXT 4K HANK OF MEMORY AND REPEATS ST^PS 

3»9 UNTIL THE END OF THE ''emorY 

AtfiTR EXECUTING THE T^ST PlfTEs ArE SNAPPED At 

LOCATION RAKPAT AFD STEPS I-I0 ARE REPEATED 

r tHIs tEST P^ is POINTI^'G tO LOCATION 'a'» r1 T" 

LfCATION »2», R2 TO THE END OF THF 4K BANK IN WHICH THE 

T^ST Ts TAKING PLACE AND p3 t^ tHE LOwEsT LOCAtIOM IN T^'E 

Cr.LUMf>/R0W CONTAINING »A' AND 'B' 

f-^i ST OF T^E CODE usFD BY THIg Tfc'ST Is A^'SO US^ D BY T^ST ^^ 

tf««#«-»4»«««»«4»««#«»'»««»»«» «««««««««««««««««#»*««#» 

#10»0»STESTN fCHFCK FOR PROpFR TEST SPOUENCE 



UERrOr* pEpOpT ErrOr MESSAGE AND HALT AT FAtHLt 
|»«««»«EPROR NUMBER 34»««««« 

fSET R2 TO THE LOWEST MfMOHY UNDER TEST 

JMAKE r2 pOIN.|. ^0 T-HE HIGHEST I'OCAtION IN -pHE 4K 

iPANK FOP WHICH GALLOPING WILL BE PERFOMED 

» INCREMENT p2 BY 2 

jBR IF IT WENT TO (IT MUST HE A 1(.,K SYSTEM) 

I If THE HIGH POuNDrY OF THE t^ST ^S HIGHER THAN 

ItHF maximum ALLOWED ADDREsg THEN ADJUST H^ 



iliBAKPAT,-(R0) IWRITE THE MEMORY UNDER TFST wiTH A PACKGHOUNU OF 
IBAKPAT 



|P3 AND Pi ABE POINTING TO THE LOWEST LOCATION THAT 

ICAN RE TESTED IN xHIS BLOCK 

IBEFOPE STARTING THE GALLOPING TEST FOp LOCATION 

I(p0) CHECK IT 

ICONTINUC ir OK 

fOTHEpwISE PPEPAPF TO RfPOpT THE FpROp 



9»PAKPAT,(R0) 



BEG 


8t 


MOV 


Rt'»pl 


MOV 


esPAKPAT, 


JSP 


PC#rRROp 


35 





f«ERpOp» REPORT ERROR MESSAGE 
f««»«»»ERROP NUMBER 35»»»«»» 
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09102 Page. 43 

TU^ PEAD PECOvf.PY GALLOPING TFST/FVERY 64TH CELL 



SEO «'fc545 



2139 








2l4e 


003602 


0100U 




2141 


0W3604 


010100 




2142 








2143 


001606 


000310 




2144 


0036in 


031011 




2145 








2146 


003612 


020001 




2147 








2148 


003614 


001412 




2149 


003616 


"21137 


000316 


2150 


003622 


(?i«l4t37 




2151 


003624 


f. 10046 




2152 


003626 


013700 


00C*316 


2153 


003612 


004767 


001772 


2154 


003636 


00«1036 




2155 








2156 


003640 


01260^ 




2157 


003642 


021037 


000320 


2158 


003646 


001412 




2159 


003650 


010146 




2160 


001652 


010001 




2161 


003654 


0l37pi0 


0CC'320 


2162 


003660 


004767 


001744 


2163 


003664 


000037 




2164 








216S 


003666 


010011 




2166 


003670 


010100 




2167 


003672 


012601 




2168 


003674 


122737 


00'5»01 1 


2169 


003702 


001402 




217(» 


003704 


062701 


000176 


2l7l 


003710 


0627f)i 


000002 


2172 


003714 


020102 




2173 


003716 


101734 




2174 


003720 


000320 




2175 








2176 


003722 


122737 


000011 


2177 


003730 


001407 




2178 


003732 


005723 




2179 


003734 


062716 


000002 


2180 


0037 40 


105716 




2181 


003742 


100002 




2182 


001744 


J61603 




2183 


003746 


0050J6 




2184 


003750 


032700 


000177 


2185 


003754 


001002 




2186 


003756 


005237 


00O4lf^ 


2187 


003762 


M20002 




2188 


001764 


103674 




2189 


003766 


162603 




2190 


003770 


000337 


000320 


2l9i 


003774 


000337 


00-1316 


2192 


004000 


001660 




2193 


004002 


010203 




2194 











MOV 


Ri^iCRl) 




MOV 


PI »p0 


RSI 


SWAP 


CP0) 


10$l 


PIT 


(R0),(P1) 




C^P 


p^'#pl 




BEQ 


1?S 




CMp 


(Rl),9»PAKpAT 




BEQ 


1?« 




PCV 


P'\-(SP) 




MOV 


««BAKPAT,R0 




JSP 


pr#EHpOp 




36 






HOV 


(5P)<f,P0 


1281 


rMp 


(F«)»(8i»sWApST 




PEQ 


14$ 




MOV 


R1,-CSP3 




MOV 


Pc^,Pl 




MOv 


9»SWApAt»R^ 




JSR 


pr,FPPOP 




37 






MOV 


P0iCRn 




MOV 


R1#P0 




MOV 


{SP)t,Ri 


I4g| 


CMpB 


#11»P«8tESTN 




PEQ 


16* 




ADD 


»176.P1 


16SI 


ftDD 


»7'^\ 




C^'P 


Rl #p2 




RLO 


1t?« 




SWAP 


(p0)* 




CMpB 


«11»P«StEsT^' 




PEQ 


17$ 




TST 


(pD* 




AfD 


«7#CSP5 




Tsre 


CSP) 




E'PL 


17$ 




5UB 


(5P5#r3 




CLP 


(SP) 


1781 


BIT 


M77,p0 




PNE 


1B$ 




IN'C 


a«$DEvCT 


18S! 


CKP 


Pf,P2 




PLC 


6S 




gnp 


(.<;?)♦, R3 




SWAP 


a«S'*APAT 




SWAB 


fl«BAKPAT 




PPQ 


2$ 




MOV 


F?#R3 



fPESTOPE THE CONTENTS OF (PU 
fpESTOpE R0 



ICHECK TO SEE THAT NONE OF tHE PItS SET 
fIN CR0) ARE SET IN (Rl) AND VICE VERSA 
JtHF only exception tO tHIS will be WHEN p0aRl 



fCHECK THAT (Pl) HAS PAKpAT l^ IT 

JSAVE R0 ON STACK 
fPLACE THE PATTERN WORD IN R0 
»*EppOp» REpOpT ErrOr message 
j»»»*«#ERROP NUMBER 36««*»«* 

JPESTOPE R0 

IfHECK THAT tR0) HAS SWAPPED BAKpAT IN IT 

JSAVE Rl ON THE STACK 

|MAKE PI POINT TO THE FAILING LOCATION 
JLOAD R0 WItH THE EXPECTED RESULT l^ fpU 
j«EPROR» REPORT ERROR MESSAGE 
»»»««««Err0r number 37»««#»» 

IPECOVEP (Rl) FROM THE ERROR 

JrEsTOrE r0 

fANP RESTORE Ri 

>IS THE PROGRAM EXECUTING TEST » 11 ? 

J IF SO THEN GO TO ]6S 

jMAKF Rj POINT TO THE NEXT ADJACENT CELL 

lAND IF Rl HAS NOT REACHED tHE END OF THE BOuNDrY 

jTHEN REPEAT FROM jeg 

JbEsTPrF the location FOp WHICH jHE GALLOpING TEgT 

fWAS BEING PERFORMED 

riS It TEST 11 ? 

lIF SO THEN GO TO i7S 

fOTHEpWisF INCREMENT r3 BY 2 

jFOR EVERY ROW/COLUMN TESTED ADD 2 

jHNTlL (SP) IS 200 
'SUBTRACT 200 FrOM r3 

»AT A 64tH call POuNDrY? 

jPRANCH IF NO 

JTELL APT WE ARE STILL RUNNING 

I IF Rh HAS NOT PEACHED THE END OF THE BOUNDRY 

ITHFN REPEAT FpOM 6$ 

IPESTORE SP AND Rj 



JIF THE LOWER PYtE OF BAKpAT Is ^ fHEN pEpEAT FrOM 2$ 
, OTHERWISE MAKE THE PRESENT HIGH BOUNDRY As THE 
»NEXT LO* BOuNDRY 
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CZKMAF.pl 1 05»Mar»79 09|02 tI^ pFAD RECOvrpY GALLOpING TFST/FVERY 64tH CELL 



SEO 0046 



2195 


004004 


020205 




2196 


004006 


001410 




2197 








2198 


00401 f^ 


032702 


017776 


2199 


004014 


('01025 




2200 








2201 


004016 


122737 


00001 1 


2202 


004024 


001421 




2203 


004026 


000635 




2204 


004030 


O0(^623 




2205 








2206 








2207 









CMP 

BEQ 

BIT 

BNt 

CMPR 
BEQ 
PR 
PR 



P7#P5 
F''D10 

»!7776»P2 
RPT| 1 

«ll#8«STESTf^ 

PPTll 

PPT10 

E^'D7 



I IF PREVIOUS HIGH POuNDPY WAS THE END OF THE 

jTEST BOllNDRY THEN EXIT THE TEST 

fWAS IT A 4K BOUNDRY ? 

»IF NOT THEN WE wERE PERFORMING TEST 11 WITH LONG 

IGALLOPING TEST DISABLED 

I IF IT IS TEST # 11 THEN GO TO PEPEAT TEST H 

jOTHEPWiSE PEPEAT TEST 10 
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CEKMAF.pt 1 ^5-^Ap-79 09ic^2 tH pMn pECOvEpY LONG r-ALLOp I nG/FAst GALLOpHG t^ST 

22^9 .'^TEST It R^AU PECOVEPV LO^'G GALLOpING/FAST GALLOPING TEST 
2210 

2211 l»(l) T^'IS TEST wpiTES ME"OPY WITH BAKPAT 

2212 |«(2) jiV TFST BEGINS AT tHK LOWEST LOCATION PFING TESTED 

2213 j» (lETS NAME IT 'B') 

'214 l»C3) 'f.'.'P' ['•'f^VF T^^F ADDpEsS "F" 'B' T^ tHE pOIK'iEH FOp LOCAflON 'a'] 

2215 f«(41 5MPS BYTES FOR LOCATION 'A* 

2216 J»(?j) HF6DS 'A', PFADS 'B' 

2217 >»C6) 'R's'B'*2 

2218 »«(7) IF GALLOpIMG OpTlO^J RIt AT SS^PEG Is HIGH tHFN STEpS 4 AND 5 

2219 }» At F RFPFATEP U^TIL 'b' PEACHES THE HIGHEST ^E^iOPY LOCATION 
222ei I« Of tHF 4K rank I'J WHICH 'a' IS RFsID|NG» tHFN 'a' Is 

2221 >* n^CPE^'E^TEn BY 2 ANn AFTER MAKIf'G 'B' TO POINT TO THE. LOWEST 

2222 ;« L(CATlOM OF THE 4K ^E-^Opx BANK CO^tAINIKG 'a' STEPS 3#4,5 AND 

2223 l» 6 APE PFPEATFD UNTIL 'A' EQUALS THE END OF THE ENTIRE MEMORY 

2224 j»(93 IF GALIiOpiNG OPTION BIT TS NOT HIGH THEN STEPS 4 AND 5 ARE 

2225 ;» PrPFATED UNTIL 'R' IS pni».iTING TO A CFLL IN THE NEXT COLll^'N 

2226 f« Ir SEUUFNTIAL CELI s LIE ALONG tHE pO»i, Op jHE NEXT POw 

2227 ;» IF SEQUE'-^TTAL CELLS LIE ALONG THE COLUMN, AT I^HICH Tlf^E 
2226 l« STEPS 2#3#4,5 AND 7 ApE RFPFAtED uNT^L tHE END OF tHE KE^OpY 
7229 f«C9) TiST Is PFPt-ATED FCR THE OPPOSITE BACKGROUND DATA 

2230 >»C10) I' THIS TEST R^^ POINTS TO LOCATION 'a'» Pl TO LOCATION 

2231 j« '('', P2 TO THE HIGHEST LOCATION AND R3 TO THE LOWFST 

2232 |» LOCATION IN A 64/4K CELL POUNDRY 

2233 S«(ll) '•'f ST OF THF CODE USED BY TEST IP IS ALsO USED BY THIS TEST 
2234 

2235 }>***«***»*•«**«*«««»««*•*««*■»*»»«*»«*»»«»»«»*•*«*»#»»»«#«»*»*»»» 

2236 0^4032 122737 miPiM 1 C004ci4 TSTm C^'P^ s ^ i » " "^'^'t'ST'^ iCHECK FOR PPOPEH TEST SEQUENCE 
2237 

3238 W04040 ('0t4(i3 PEQ , ♦ l (> 

2239 004042 f't'4767 i^-f!212'/ JSR pr, SFqEPR I»EppOr« pEpOpT EPrOr MESSAGE AND HALT A1 FATHLT 

224^?) 004046 (^0ti04w 4n j«»»»»«FMPUR NUMBER 40»**»«« 

2241 

2242 004050 'nt^4r'2 ''^OV P4,?'2 j^AKE R2 TO pOIN't TO THF LOWEST LOCATION 

2243 IUNDEr test 

7244 M040'52 105777 174372 TSTP SS^R iLONG GALLOP ENABLED? 

2245 0041^56 100004 ppL RPTll JftpANfH IF NO 

2246 004i;i6v^ C'04767 002526 JSR Pr,pNTMES jTYPE "GLP" 

2247 e04064 046lc«7 pim(»120 .AsCIZ /^IP/ 

224fl flv}407ii 10S777 174354 PPTliI TSTF* &s^-^ jLO^'G GALLOPING ENABLED? 

2249 M04C174 100612 n^l nPT\^ JRrANCH IF YEs 

2250 jTO HPT10 

2251 004076 057702 000176 his M76,p2 JOxWEpwIsF sET THE LOw OrdEp BITS OF tHE ADDpEsS 
7252 |T0 GET THE HIGH ROUNDRY 

2253 

7254 0041PI2 r006U BP GALLOP j PFRFORM GALLOPING TEST 
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CZKMAF.Pii 05-f»AP«.7g 09|t^2 Tl? WOHST CASf" TESTING FOR COPE MEMORY 

2255 ;}»«««#««««««#«#«««#«««««»»«»«»«»«•»«»«»■»««»»»«««#««»«»««« 
7256 :«TEST 12 WnppT CASF TESTUG FOP COPE MEMORY 
2257 .*Cn ■ •■" - -■ •- --- -- 



STARTING FrO'^ tHF LOt^FsT LOCATION uNDEh TFsT THF wpMOpy 
Is f.PlTTE." aItH a BACGROuNP OF RAKPAT, HO*EVtF LOCATIONS 
HAVING AnnpEss SUCH T^AT FXCLusIVE Op OF ADOgEsS PTts i ^ 



2258 

7260 }» RBI AFF WPlTTFN TO A VALUE OF SlxAPPED BAKPAT 

2261 j»(2) STARTING Fp"M jHS LOWEST LOCATION yHE MF^OrY Is CHEC^FD 

2262 l« T*" CO'^TAIN THE COPPFCT OATA AS EXPLAINED IM STEPS 3 & 4i 

2263 i* ri'TlLL THE HIGHEST LOCATIO^ ijNDEP TEST TS REACHED 

2264 J»(3) »^'-Ar EACH LOCATlO'i FOR THf COPPFCT CONTENT 

2265 f»{4) fr.Mp^^^p-fj^ ^f^p. IjOcAtTO^j a^D RFAD It» CO^'PLEWENT THE LOCATION 

2266 }» RACf TO ITS ORIGINAL VALUF AND READ IT AGAP' 



iiiiiil 2267 .«{5) 

Wmmm 2 26 9 l» 

'Wm^ 2269 l»(b) 



t*t.{.r I u i J a I ' H J u 1 r. ft I , V A IJ U f A ni U H t A U A 1 A (.i A 1 -' 

StAptI'^G From the highest LOCAtION uNDEF TEST REPEAT STFPs 
3 *, 4 UNTIL THE TOaFST LOCATION uNpER TFST IS REACHED 
r'FFAT STFPs 1-5, HOwFyEp tHTs tI*^E LOCAtIO'^s wItH XOr 
Of AODPFSS pits fl & 33 si ARE WRITTEN TO Si^APPEP RAKPAT 
pipFAT STFPs 1-5, HOWEVER THIS Tl^E LOCATIONS wItH XOp 
OF ADDRESS PITS 3 S. 9 a I ARE WRITTEN TO SWAPPED BAKPAT 
PPPFAT STEPS 1-7 t-. ItH a background OF SWAPPED RAKpAT AND 
T»JF LrCATlONs TO RE i^RlTTFN TO SNAPPED BAKpAT WRITTEN TO 



2270 

7271 ,4t(7) 

7272 I* 

2273 ;»(P1 

2274 ;» 

2275 j« B.'^KPAT. 

2276 ; I »»!»»»»»«•»««»«■»«««#»*«»»#»♦»»»«»»#»«»#»»»»»#»««#» »#«»»»»«»#«#»#» 

2277 .^,04104 122737 nfioipj? M00404 tsTjji c^'Ph 8 , 2 , a8$TKST^' jCHECK FOR PROPER TEST SEQUENCE 
227fl (Hl4lt2 00l4c"3 HEq , + 10 

2279 00411^ 004767 002046 JSR Pr,SEQEPR ;»EPpOp* pEPOpT ERpOp MESSAGE AND HALT AT FATHlT 

2280 004l2i' 000041 4j >»»»»«»EPrOp NijMBER 4M***** 
7281 

7282 

7783 v^04l22 ni27c^2 0m</.h^2 N'OV «,?,P2 jPPFPARE TO TAKE THE EXCLUSIVE Or OF ADDRESS ^ITS 1 

2284 O04126 iil?703 0Oc<40(.' MOy »'i00#p3 fAND 8 

2285 t'04132 112737 00000I 0003«6 iSj ^'OVP »,,a«PASFLG iINlTTALIZF THE COUNTER FOp THE SUBTEST 

2286 004140 01O4(?1 2SI woy p4,pl IpLACE tHF STARTING ADDpEss OF ^'F^'OpY U^-OFp 

2287 ITEST IN pj 
7288 ki04l42 tl3700 00^316 4$t MOy (>»PAKpAT#p0 

228Q 0k)4i46 030201 f^IT" Ppr^l iCHECK TO SEE IF ADDRESS HIT STORED IN P2 IS SET 

2290 004150 t,yi004 RNE 8$ HE It Is SET THEN GO tO fll 

22^1 00415? n3o301 BIT Pl#Pl JCHFCK TO SEF IF ADDRESS BIT FOINTFO HY RJ IS SET 

2292 004154 001404 BEq 12S ITF It Is NOj sEt THE»' GO tO t2S 

22*'3 004l«<6 H05100 6S| COM Rj- fCOME HERE ONLY IE EXCLUSIVE OR OF ADDRESS BITS 

2294 IpOINTED BY p2 ^ pOINfFD HV p3 « 1 IN wHICH 

2295 jCASE PWEPAPF TO i-rfPlTF THF I.OCATION 

2296 IwItH a complement OE LOCAtIONj NOt MEEtI'^G 

2297 ITHIS CONDITION 

2298 004160 000402 Bp 1?S 

2299 004162 030301 8S1 BIT P]|,Pl iCOMe HFpr IF AnDprss BIT POI^TED BY P2 IS 1 AND 
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2300 jCHECK ADDRESS BIT POINTED PY P3 

2301 <104l64 0f^l774 BEQ 6S IIF AnupESS Blf pOl'^xED BY r3 I5 tHEN GO fO 6$ 



■•) 



CZKMA MACYll St^AdPSJ) ^5-^'AP-79 (^9102 PAGE 50 

CZKMAF.pll 0S-MAP-79 09|fi2 t12 k«)ORsx CAs^ rF-pflNG FOp COrF ^'F^OpY StQ 0050 

23P2 004J66 132737 O*i»ffl0O2 '^00306 12$! RItP oJ^OspAgFLG JI? It 2^'n Op 3rD pAsS OF THE sUBtEsT ? 

2303 On4i74 001 0P1 H»'t MS ;TF SO THfN READ THE "E^OPY 



CEK?^A ^hC^iil 3PAC1052) 05«f^AP''79 



09102 PAGS Si 

Ti2 wOrsT CAsP" testing FOr COpE MEHOpY 



SEq {'BSl 



23t»4 


004176 


010011 




2305 


004200 


02001 1 




23P6 


004202 


00l4(;t3 




2307 


CT04204 


004767 


001420 


2308 


PI04210 


00R042 




?3t?9 








2310 


004212 


012746 


000CT02 


2311 


004216 


005100 




2312 


004220 


0P51U 




2313 


004222 


020011 




2314 


004224 


001404 




2315 


004226 


004767 


001376 


2316 


004232 


Wipe 4 3 




2317 








2318 


004234 


010011 




2319 


004236 


005316 




2320 


004240 


001366 




2321 


004242 


005726 




2322 


004244 


122737 


000003 


2323 


004252 


001412 




2324 


004254 


062701 


000002 


2325 








2326 


004260 


020105 




2327 


004262 


103727 




2328 


004264 


105237 


000306 


2329 


004270 


122737 


000fl02 


2330 


004276 


001720 




2331 


004300 


1627^1 


00(3002 


2332 








2333 


004304 


020104 




2334 


004306 


103315 




2335 


004310 


012702 


020000 


2336 








2337 


004314 


105237 


000307 


2338 


004320 


123727 


0003p7 


2339 


004326 


103701 




2340 


004330 


101004 




2341 


004332 


012702 


000010 


2342 


004336 


006303 




2343 


004340 


000674 




2344 


004342 


005137 


000316 


2345 


004346 


105737 


000316 


2346 


004352 


00l6«54 




2347 


004354 


000625 







MOV 


Ri-,(Rl) 


1481 


C^^P 


Pf^,(Rl) 




PEO 


168 




JSP 


PCFRPOP 




42 




161! 


MOV 


»2#-CSP) 


1811 


COM 


R0 




COM 


(Rl) 




rwp 


pr^itRl) 




BFO 


l*?! 




JSP 


PC,EppOp 




43 






MOV 


P;»»(Pn 


19$I 


DEC 


CSP) 




BNE 


IBS 




TST 


(,•;?) + 




CMpp 


lf3,9«PASFLG 




REO 


20 8 




ADD 


»2»P1 




CMp 


Pl»P5 




PLO 


4S 




TNCB 


lasPASFLG 




CMpB 


»2#3«PftsELG 




BEO 


26 


20SI 


SIJB 


82#pi 




CMp 


Pl»p4 




BHIS 


4S 




MOv 


#?0000»p2 




INCB 


BtpAsFLG+l 




CMPB 


a*PftSFLG+ii«2 




BLO 


IS 




BHI 


22S 




MOV 


»10»r2 




ASL 


Pj 




BP 


IS 


2281 


COM 


0«RAKPAT 




TSTB 


aKR&KpAT 




BEO 


TST12 


END12I 


BP 


El D10 



lOTHCRWiSE WplTE THE MEMORY BFOrE READING IT 
fPEAD THE MEMORY FOR CORRECT CONTENTS 



j»epror» report error message 
i**«»«»fprOr Number 42'»*«»»« 



JPEAD THE MEMORY AGAIN 

>*EppOR# pEpOpT ErrOr MESSAGE 
l««»»«»EBROR NUMBER 43»»««»« 

fRESTOPE THE LOCATION (PI) 

JFXFCUTE THE CODE FROM jfiS TWICE 

IpESTOpE THE STACK POINfEp 

J IS IT THE 3RD PASS OF THE SUBTEST 7 

»IF SO THEN GO TO 20$ 

I IN FIRST 2 PASSES THE PROGRAM PROCEEDS IN 

,MIN, TO MAX. DIRECTION 

iHAVE WE REACHED THE MAX, ADDPESS UNDER TEST ? 

I IF NOT THEN REPEAT FROM 4$ 

I IF It Is THE 2ND pAsS OF THE SUBTEST 

jTHFN REPEAT FROM 28 

JOtHErwIsF EXECUTE THE tEsT I^ ^^AX. tO MIH, 

JDIPECTION 

IHAVE WF REACHED THE MIN, ADDpEsS UNDEr tEST ? 

I IF NOT THEN REPEAT FROM 4S 

IppEpApE tO check THE MFMOrY WlfH xHE XOr OF 

jADDPESS BITS 8 AND 13 

»tHE sUB tEsT has checked t»£ XOp ONE KIND 

iHAS T»^0 XOR COMBINATIONS BEEN CHECKED I 

I IF NOT THEN GO TO 18 

J IF ALL THREE HAVE BEEN CHECKED THEN GO 10 228 

IIF It Is THE 2ND XOp COMBINATION fHEN CHECK 

IFOP ADDRESS BITS 3 & 8 

I IF THE TEST WAS NOT PERFORMED i^lTH THE SNAPPED 

IBAKPAT THEN RE-EXECUTE THE TEST 
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2348 








2349 








2350 








2351 








2352 








2353 








2354 








2355 








2356 








2357 








2358 








2359 








2360 








2361 








2362 








2363 








2364 








2365 








2366 








2367 








2366 








2369 








2370 








2371 








2372 








2373 








2374 








2375 








2376 








2377 








2378 


004356 


122737 


000013 


2379 


004364 


001403 




2380 


004366 


004767 


001574 


238} 


004372 


000044 




2382 
2383 


004374 


0127^2 


010247 


2384 








2385 


004400 


012700 


177667 


2386 








2387 








2388 








2389 








2390 


004404 


010546 




2391 


004406 


010446 




2392 


004410 


000241 




2393 


004412 


006005 




2394 


004414 


006004 




2395 


004416 


160405 




2396 


004420 


006003 




2397 


004422 


103002 




2398 


004424 


062716 


000002 


2399 


004430 


012604 




2400 


004432 


01260S 




2401 


004434 


010403 




2402 








2403 


004436 


000406 





«TEST 13 WPlTE RECOVFRY TEST 

* THI5 TEST DIFFERS FpOM 0-12 I^ THAT IT CO'JsISTS ^^ A S^ALL tEsT PROGrAM 
» ACTUALLY PUNNING IN THE 4K BA^'K UNDER TEST, 

« T^E PROGRAM Is SELF MODIFYING A^D MAY BE DIFFICULT fO DEBUG, 

« TO AID IN THE DEBUG, BEFORE A BANK IS ENTERED "TSTU B^^K XX" 

* Is TYPED. THIS WILL ALLOw xHE USER tO At LEAST SEE WHICH MEMORY 
» BANK FAILED, 

* THE TEST CONSISTS OF 1/2 OF THE BANK stOrED WItH "MOV p2»-(pC5" 

» AMD THE OTHER 1/2 CONTAINING "177667", "177667" IS THE COMPLEMENT 

» OF "JMp (t;0)" INSTRUCTION, 

» P2 CONTAI'iS "COM -(pj)" INSTRUCTION ON ENTRY TO THE BANK ANP pj CONTAINS 

« THE HIGHEST TFST AHDrEsS ^^ THAt BANK, tHE HIGHEST TE5T ADDrEss Is 

« USUALLY Of 4K BOUNDARIES, WHEN TESTING BANK RELOCATED, HOWEVER 

* pi C0NtAI''s tHE FIrst Free tEsT ADDrEss BELOW tHE DIAGNOSTIC, 
ft IF YOU UNDERSTAND THIS SO FAP THE REST IS EASY, 

ft THE TEST EXECUTlOM Is As FOLLOWS' 

ft 1, THE "MOV P2»"(PC)" INSTRUCTION EXECUTES STORING 

ft THE CONTENTS OF p2 IN tHE ADDrESS It VACATED (DuE T^ -CpC). 

ft 2, SI^'CE R2 CONTAINS A "COM -(Pi)« INSTRUCTION IT COMPLEMENTS 

ft THE HIGHEST ADDpEsS U«DER TEst. T"Is ADDrEsS CONtAINED 

» "177667" SO AFTER THE COM -(Ri) IT EQUALS 110 

ft CLEVEpLY THIS IS THE "JMp Cr0)" INSTRUCTION, 

ft 3. THIS SEQUENCE CONTINUES UNTIL THE "MOV R2,-(PC) INSTRUCTIONS 

» PEACH THE MIDDLE OF THE TEST BANK. tHEN tHE "JMp {p0)" INSTRUCTION I5 

ft AND EXECUTED, R0 CO^'TAINED THE RETURN ADDRESS BACK 

« TO TEST 13, 

ft 4. THESE STEPS ARE REPEATED FOR EACH BANK UNDER TEST, 
ft 

I ftftftftftftftftftft ft «ft«»«««ft«««»««« ««»«««««««««»«»««««»««««#«## #{(««##«»« 

tSTi3i CMpB «,3,(»«8TESTN fCHECK FOp PROPER TEST SEQUENCE 

BEQ ,*10 

JSP PCSEQERP |«ERROR» REPORT ERROR MESSAGE AND HALT AT FATHLT 

44 i»ftft»ft»ERpOR Number 44»«ftftft« 



J8l 



MOV 
MOV 



Sl0247,P2 
«)77667#R0 



jPLACE THE OP CODE OF INSTRUCTION MOV P2»-(PC3 

fIN r2. 

jPLACE THE COMPLEMENT OF THE INSTRUCTION 

iJMp (R0J IN p0 

{INSURE LOWEST TEsT ADDPESS TO END OF 4K SEGMENT IS MULTIPLE OF 2 
ISINCE T^E tEsT StOrEs "'^Ov R2»-'(pC) IN 1/2 AND 177667 IN tHE OtHEr 1/2 



281 



2911 



MOV 


R5»»CSP) 


MOv 


r4»-(sP) 


CLC 




rOr 


P5 


ROR 


R4 


SUB 


R4#p5 


pop 


Ri? 


PCC 


3(^i 


ADD 


»2»C8P) 


MOV 


CsPJ*»R< 


MOV 


CSP)*#P5 


MOv 


R4,p3 



281 



fSAVE R5 

ISTOrE lowest ADDpEss 0^ STACK 

IMAKE pOglTlVE BYtE COuNt OF HIGH ADDpEss 

IDO SAME FOR LOWEST ADDRESS 

IGET DIFFERENCE OF LOWEST ADDRESS AND HIGHEST 

I IF DIFFERENCE IS ODD THEN R4 Is AT LOWEST ADDRESS 

IBRANCH IF r4 Is At LOWEST TEST ADDRESS. 

J INCREASE LOWEST TEST ADDRESS BY 2 

JpEsTOpE r4 CpOsslBLY INCrEAsED BY 2 FrOM ENxry3 

IPESTORE HIGHEST TEST ADDRESS 

IPLACE THE LOWEST LOCATION UNDER TEST 

flN R3 

JLEAVE LOW BITS OF R3 ALONE FIRST TIME IN CASE BANK 
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SEQ 0053 



2404 
2405 
2406 
2407 
2408 
2409 
2410 
24U 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
24l9 
2420 
2421 
2422 
2423 
2424 
242S 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 



004440 0427^3 017776 



*104444 
004446 
004452 
004454 
004456 

00446(^ 
C04464 
004466 

004470 

004472 
004474 
004500 



001507 

105737 000405 

100504 

020305 

103102 

020527 020000 
103002 
010501 
000407 

010301 

052701 017777 

005201 



28SI 



BIC 


#17776#P3 


BEQ 


148 


TSTB 


ia#pFL 


BHI 


J48 


CHp 


Rlip5 


BHIS 


14S 



iCftDSE R3 TO POINT TO THt LOWEST LOCATION 

lIN THE 4K BANK UNDER TEST 

jIF ADDRESS WENT TO 0, IT MUST BE A 30K SVSTEM 

lARE WE PELOCATED? 

fBPANCH IF YES-TEST BANKjj ONLY- 

ITF p3 Is HIGHER THAN tHE HIGHEST LOCATlO" 

lUNDEP TEST THEN EXIT 



J IF p5 Less than 20000 then we are testing BANK0 relocated in BANK0 
CMP P5,«20000 US highest test address BELOW 4K? 
BHiS 3lS IPRANCH if NO 

MOV PS*!'! >SET Pi TO HIGHEST TEST ADDRESS IN BANK0 

BR 328 



31SI 



004502 001402 



004504 
004506 
004510 

004512 
004520 



020105 
101401 
010501 

132737 

001101 



00001 000306 3381 



004522 020304 

004524 103430 

004526 105737 000307 

004532 001002 



004534 
004540 
004542 
004544 
004546 
004550 
004552 
004554 
004560 



012713 
020213 
001421 
010046 
010146 
010301 
010200 
004767 
000045 



010247 



004562 012601 
004564 012600 
004566 105717 0^0306 



004572 001005 



W04574 
004576 
004602 



010200 
004767 
000046 



MOV 


P1»P1 


Bis 


#17777, pi 


INC 


Pi 


PEQ 


32S 


CMp 


Rl»P5 


PLOS 


33S 


MOV 


P«5»Pl 


PITP 


#1,««PASFLG 


PNE 


168 


CMP 


P3,P4 


PLO 


8S 


TSTB 


i«PASFLG+} 


PNE 


66 


MOV 


«10247,Cp3) 


CMP 


P2»fP3) 


BEQ 


BS 


MOV 


PP,-CSP) 


MOV 


PI #-(SP) 


MOV 


P3,Pl 


MOV 


R2»p0 


JSP 


PCEPPOP 


45 




MOV 


(SPj+^Pl 


MOV 


(SP)+.P0 


TSTB 


SiPASFLG 



fSET PI TO LOWEST CURRENT TEST ADDRESS 

IsEt LO^ OpDEp ADOrEss BItS 

ICAUSF Ri TO POINT TO THE HIGHEST LOCATION+2 

lOF THE 4K BANK BEING POINTED BY R3 

jBPANCH IF Pi i^ENT TO (WHICH MIGHT 

iHftvE HAPPENED IF tEstI^G A 30K Lsl SYSTEM) 

jCOMpARE PI TO HIGHEST ADDRESS UNDER TEST 

JBPANCH IF WITHIN RANGE 

fSET Rl TO THE MAXIMUM AVAILABLE MEMORY 

fIS THE LOWEST BIT OF LOCATION PASFLC 
I5Et7 in vjHICH CASE BACK GpOuNp HAS 
jALPFADY BEEN WRITTEN AND WRITE RECOVERY 
ITEST IS BEING PERFORMED 

jOTHERWISE WRITE THE BACKGROUND 

JOEFINED AT STEP 3. 

»IS THE TFST JUST DOING READ, I.E. 

J Is THE PASFLG+1 LOCATION NON ZERO? IF sO 

jTHEN GO TO 68 

IwplTE tHF LOCATION wItH tHE OP CODE FOr MQv r2,»'CPC) 

fPEAD (P3) TO CONTAIN CORRECT DATA 

jSAVE R0 

fAND Rl ON THE STACK 

>SET P0= GOOD DATA FOr ERpOp PrINtOut 

j»epp0r» report error message 
i»*«»»«epr0r Number 45»«*««« 

iPtSTORE PI 

»ANP p0 

I IF PASFLn IS AND THE MEMORY DOES NOT HAVE 

JTHE PROPER DATA THEN wE DON't WANt tO GO AND 

?FXFCIITE THE INSTRUCTIONS STORED IN MEMORY UNDER 

fTEST 

IPRANCH IF PASFLG NOT »0 



MOV P?,P0 ISAVE FOP ERROR REPORT 

JSP PC#ERpOR J»ErrOr» REPORT ErrOr MESSAGE 

46 ;»«#»#»ERP0R NUMBER 46#»#»*« 



004604 000663 



F^.Dl2 



JABORT TST 13. 
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2460 








2461 


{"04606 


062703 


000002 


2462 


004612 


167701 


000002 


2463 


004616 


020105 




2464 


004620 


103014 




2465 


004622 


020103 




2466 


004624 


103405 




2467 


004626 


105737 


000307 


2468 


004632 


001002 




2469 


004634 


012711 


177667 


2470 








2471 


004640 


020011 




2472 


004642 


00140 3 




2473 


004644 


004 767 


00^76'-^ 


2474 


004650 


000047 




2475 








2476 


004652 


020301 




2477 


004654 


103722 




2478 








2479 








2480 








2481 


004656 


062703 


020001^ 


2482 


004662 


000666 




2483 








2484 


004664 


122737 


0000^^1 


2485 








2486 








2487 








2488 


004672 


001437 




2489 








2490 








2491 


004674 


103627 




2492 








2493 








2494 


004676 


105137 


0Pvi307 


2495 








2496 








2497 


004702 


001240 




2498 


004704 


012702 


0C5141 


2499 








2500 


004710 


012700 


177740 


2501 


004714 


060700 




2502 








2503 








2504 








2505 


004716 


105237 


000306 


2506 


004722 


000630 




2507 








2300 


004724 


032777 


000020 


2509 


004732 


001016 




2510 


004734 


105737 


000042 


25U 


004740 


001013 




2512 


004T42 


004767 


001644 


2313 


004746 


051524 


030524 


2514 


0047S4 


047102 


000113 


2513 









8$t 


A I'D 
SUP 
CMp 

PHIS 

CMP 

BLO 

TSTP 

PNE 

MOV 


82»P3 

«?,P1 

Pt,P5 

178 

Pl,P3 

1<^8 

a*PASFLG*l 

«l77667,(Pl) 


I08J 


CMP 
PEG 
JSP 
47 


R';.,(Ri3 

178 

PCFPPOP 


1281 


CMP 
PLO 


PI, PI 
4S 


;RFTUPN 


PFHF 


AFTEP PPOGPAM p' 


l3St 


ADD 
BR 


«?0000,P3 
36 


1481 


CMPB 


«j ,8»PASFLG 




BEO 


24$ 




BLO 


Ef'Dl2 




COMB 


!»«PASFLG*1 




BNE 
MOV 


28 

«5141,P2 




MOV 
ADD 


«13$-."6,P0 

pr,p0 


iSil 


INCB 
BP 


jl»pAS?'LG 
28 



173516 1S$I 



020063 



BIT »20#f*SWp 

BNE l«»l 

TSTB ps42 

PNE 188 

JSP PCPNTMES 

,A5CIZ /TSTU BNK/ 



JINCREMENT R3 BY 2 
JPECRFMENT Pi BY 2 
fWRlTF THE BACKGROUND DEFINED AT STEP 4, 

|MAS STORING THE 177667 PEACHED WHERE "MOV R2»"CPC) IS? 

.•BRANCH IF YEs DON'x DESTROY THF HOy p2#'-(pc) Is» 

}IS T^^E THE READ ONLY CHECK pASS? 

IPRANCH IF YES 

iWRTTF THE LOCATION WITH THE COMPLEMENT OF THE 

lOP CODE JMP Cp0) 

iread rl to contain correct data 

j*epror» report error message 
j»»««»*eppOr Number 47«#*»«» 

JIF WE HAVE NOT REACHED THE MIDDLE OF 4K BANK 

jthen repeat From 48 



jOTHEPWISF GO TO THE NEXT 4K BANK 



JTHE PROGRAM CONTROL COMES HERE AS FOLLOWS 
M-PAsFLGa0, PROGRAM HAS JUST COMrLEtCD A 
> WRITF/READ cycle for the back GROUND 
t AND WANTS TO BEGIN jHE wrItE RECOvErY TEST 
12-PASFLGbI, program has JUST COMPLETED 
» THE WRITE RECOVERY TEST AND WANjs fO 
I READ MEMORY FOR CORRECT DATA 
l3-PAsFLG=2, PROGRAM HAS COpRECTl-Y READ T^E 
J WE"ORy AND WANTS TO GO THE NEXT TEST, 

JFNTER HERE WITH PASFLG»0, ON THE FIRST ENTPY 
IFNABLE READ ONLy FOp t^E MEMCrY AND ON ^HE gECOND 
JENTRY DISABLE READ ONLY 

IPLACE THE OP CODE FOR INSTRUCTION COM "(Rj) 
JiN r2 

JPLACE THE RETURN ADDRESS IN P0 AS 138 
ItHUS wHEN tHE pEAD rECOvErY T^ST rEACHEs 
fTHF wiDDLE OF THE 4K MEMORY THEN THE 
'INSTRUCTION EXECUTED WILL BE JMp (r0) 
IBRANCHINGING THE PROGRAM TO 138 
I INCREMENT pAsFLG BY 1. 



|HAS THE PRINTOUTS BEEN SUPRESSED ? 

IIF SO THEN GO TO 188 

lis THE PROGRAM RUNNING UNDER ACT? 

IBRANCH IF YES 

I TYPE THE BANK UNDER TEST 
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2516 
2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
252S 
2526 
2527 
2528 



t*04760 004767 002454 
004764 004767 001650 



004770 (»00n3 



004772 105137 000307 
004776 012700 000n«^ 
003002 000745 



JSP 
JSP 



pr,<5ETBNf< 
pr»STPDEC 



COMP aiPASFLG+1 
MOv «110#R0 
BP 158 



JTST13 FXITS VIA FND12. 



SEQ 0055 

}GET BANK NO, UNDEP TFST INTO DECWpR FOP PRINT, 
>TYPE PaNK NO, uNDEp TEST 

jPEGIN p:XFCUTING MOV P2»-(PC) ,COM .(Ri) SEQUENCE IN TES 



>pLACE the Op CODE FOp JMp (r0) IN p0 
I READ THE MEMORY FOR CORRECT DATA AFTER 

f tncrememxing paselg tO 2 



cZKMa MAcYll 30A(1052) 05-F/aP-79 09102 PaGE 56 
CEKMAF.Pll 05»MAP-79 09|02 PARITY Op RELOCATP-? 



2529 


005004 


012737 


000377 


2530 


005012 


105737 


000276 


2531 


005016 


001065 




2532 








2533 


005020 


032777 


001000 


2534 


005026 


001046 




2535 


0050 30 


105737 


0fflfe54n5 


2536 


0050 34 


100420 




2537 


005036 


U2737 


00020(' 


2538 








2539 








2540 








2541 








2542 


005044 


004767 


001542 


2543 


005050 


042522 


047514 


2544 








2545 


005056 


013705 


000340 


2546 








2547 


005062 


"14445 




2548 


005064 


020427 


000430 


2549 


005070 


11M374 




2550 


005072 


000lfc5 


000050 


2551 








2552 








2553 








2554 








2555 


005076 


013705 


000346 


2556 


005102 


105737 


000405 


2557 


005106 


100016 




2558 








2559 


005110 


012704 


000430 


2560 


005114 


012524 




2561 


005116 


020537 


000340 


2562 


005122 


103774 




2563 


005124 


J05017 


000405 


2564 


005130 


010537 


000346 


2565 


005134 


012706 


000500 


2566 


005140 


010637 


000350 


2567 


005144 


000137 


005150 


2568 








2569 








2570 








2571 


005150 


105737 


000315 


2572 


005154 


001073 




2573 


005156 


004767 


001702 


2574 








2575 


005162 


105737 


000276 


2576 


005166 


001462 




2577 


005170 


000402 




2578 


005172 


004767 


002036 


2579 


005176 


012703 


000324 


2580 


005202 


004767 


002142 


2581 








2582 


005206 


012704 


020000 


2583 








2584 


005212 


020237 


172342 



000316 PELOCi MOV 



173422 



i377,«aitBAKPAT 



tstp 


BSMFAVA 


BNE 


CONTMy 


PIT 


il000#9SWR 


PNF 


Ct«DONF 


TSTP 


e«PFL 


BMI 


prLOFp 


MOVR 


»200#'?»PE^ 



fIS THE Mr.MOpy WftN/^GEVE^T BFING TESTED ? 

jIF SO THEN GO TO CONtMK- AND CO^'TINUE TESTING 

fME^•ORY MANAGEMENT 

fPELOCATlON WANTED? 

JBPANCH IF NO 

J IF THE PPOGPAM HAS ALREADY BEEN RELOCATED THEN ALsO 

» PLACE THE PROGRAM RACK IN LOwEr COpF 

jOTHEPS».lSF PREPARE TO RELOCATE 



jPELOCATF THE DTAINC-STIC TO HIGHKST AVAILABLE MEMORY 



JTYPE "PEL" 



JSP 


PC»PNTMES 


.ASCIZ 


/RFLOC/ 


.EVEN 




Mny 


fl«M.ftxMEM#p5 


MOV 


-fp4)»-(p5) 


fMp 


P4f «BFGIN-5( 


PHI 


2S 


JHP 


5£^(R5) 



JppFpApE tO load the ppOGpA" IN t^E HIGHEST 

{AVAILABLE MEMORY 

{RELOCATE THE PROGRAM 

{NEITHER RELOCATE NOR TFST LOCATIOMS LOWER THAN BEGIN»50 



{•RELOCATE THE Dl ^^G^'OSTlC HACK TO LOwFR MFMORY 



PELOEPI 


MOV 


?#SAVR5#R5 




TST" 


fl«RFL 




BPL 


CfDONE 




MOV 


«»EGIF«50#P4 


281 


MOV 


(b5)*»Cr4)+ 




CMP 


RS»9«MAXMEM 




BLO 


2S 




CLPB 


9«REL 




MOv 


R5,««sAVr5 




MOV 


«BEG1N,SP 




MOv 


So#a»sAvp6 


CKDONEI 


JMP 


&«LOWFP 


LOWER I 


TSTB 


9«SAVKBB 




PNE 


STPSTt^ 


TSTMMi 


JSP 


PCME^MNG 




TSTP 


dSMMAVA 




BEG 


ErOPAS 




BR 


$CNTMM 


CONTMMI 


JSP 


PCMJPMM 


iCNTMMi 


MOV 


#L0WTW0,P3 




JSP 


PCtCETSlZ 



MOv #?0000#p4 
CMp P2»i8l72342 



{PESTORE P5 

{Is DIAGNOSTIC IN rELOCAtED stAtE? 

{BRANCH IF NO 

{PREPARE TO RELOCATE THE PROGRAM TO LOWER CORE 



{SAvE r5 

{RESET STACK TO LOWER MEMORY 

{"BEGIN" ugEs tHIs tO rEsEt THE sTACK, 

{TRANSFER THE PROGRAM CONTROL TO THE LOwEP CORE 



{here due to "c typed? 

{Branch if yes Ctype errOr stack) 

{ SET the registers IF THE MEMORY MANAGEMENT 

Ms AVAILABLE 

{IS MEM. MANAG, AVAILABLE ? 

I8RANCH IF NO 

{BEGIN TESTING ABOVE 28K 

»nO TO UPDATE MEM, MANAG, REGISTERS 

{MAKE B3 POINT TO THE LOCATION LOWTWO 

f LOAD BITS 6-10 OF r2 wXtH tHE BIts i3-l7 

{OF THE LOWEST ADDRESS UNDER TEST 

IMAKE p4 POINT TO THE LOWEST LOCATION IN THE BANK 

{POINTED BY PAGE ADDRESS PEGISTER i (PARI) 

lis THE CONTENT OF r2 LOwEP THAN tHE CONtENt OF 
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SEQ C057 



25es 








2586 


00S216 


103405 




2587 


00522W 


050104 




25fl0 








2589 


005222 


162702 


000200 


2590 


005226 


004767 


001636 


2591 


W052 32 


004767 


0i;2n2 


2592 








2593 








2594 


005236 


(H'4767 


00002<'< 


2595 


005242 


01^005 




2596 


005244 


004767 


^■021^"" 


2597 


005250 


004767 


000006 


2598 


005254 


010013 




2599 


005256 


000167 


174256 


2600 








2601 








2602 








2603 








2604 








2605 








2606 








2607 








2608 


005262 


010046 




2609 


005264 


012700 


17235b 


2610 








2611 


005270 


162716 


020000 


2612 


005274 


050116 




2613 


005276 


020240 




26i4 


095300 


001410 




2615 


005302 


020027 


172340 


26l6 


005306 


10137.? 




2617 








2bi8 


005310 


005721^ 




2619 


005312 


021002 




7620 


005314 


003006 




2621 


005316 


012716 


157776 


2622 


005322 


M1260H 




2623 


005324 


ti627<»0 


0t:'000 2 


2624 


005330 


000207 




2625 








2626 


005332 


022626 




2627 









BLO 


7$ 


Bis 


ri»r4 


SUR 


«200»P2 


JSR 


PCMMREG 


JSR 


P^»GETSlZ 


JSP 


PCMAXADR 


HOV 


PC'#P5 


JSR 


PC, GETSIZ 


JSP 


PC'^AXAPp 


hOV 


Rt»CR3) 


JMp 


CtP>'EM 



;PAR1 ? 

fIF Sn THFN GO 28 

fSUPROuTlNK GEtsIZ LOADED Rl WlfH Blfs 0"12 

jOF LOWADD WHICH HAVE NOW BEEN LOADED IN R4 

J SET MEM, MAMAG, REGISTERS 

»PLaCE pits 13-17 Or HIGHEST LOCATION jO BE TESTED 

jIN BITS 6-10 OF R2, #160000 2N R0 AND BITS 0'-i2 

50F LOCATION HIGHADD IN Rl 

J GET THE ADDPESS OF MAX, MEM, UNDER TEST 

J PREPARE TO SET UP LOCATION ►^AXMEM 

J GET THE Maximum address of available memorv 

jAMD STORE into "MAXMEM" 

JGO test a 24K SLICE ABOyE 28K, 



jMAXADP - subroutine TO GET CURRENT 24K sLICE OF MeMOrY ADDRESSES ABOVE 28K 
jREGISTEpsi ' 

jH0a ON FNtRYb #160000 AND C^ EXITkHIGHFST VIRTUAL ADDP, UNDER TEST 
IplB tO^ OpDFp 12 BITS OF VIRTUAL fEST ADDRESS 
;P2« PAP BLOCK NO. CUPREiyTLY UNDER TEST, 

MAXAOPi F'OV R.'i-CSP) jPUT MAXIMUM AVAILABLE ADDRESS ON STACK 

MOV »l72356,p0 ||:0apAp7 uNJBus ADDRESS 
;»#BFGIN LOOP TO rP'D PAR ADDPESS UNDER TEST 
25' SUB #?0000#(sp) »DECPFMENt VIrtuAL address RY 4K 

his Rj,(SP) iSET BITS 1110 TO MAXIMUM VIRTUAL TEST ADDRESS 

C^P P2#-(p0) IDOEs CURRENT pApa TEST BLOCK NO,? 

BfQ 36 JPRANCH IF YES 

CMp Rr#»l72340 lApE WE AT PAp07 

BHI js |N0 KEEP TRYING 

S»»END Loop tO F1"D pAp ADDpFsS U^"DFr TEST 



) 



381 



TST 
CMp 
PGT 

MOv 
MOV 
ADD 
RTS 

CMP 



{'^0)* »5ET TO PAR CURRENT 

(p0)»p2 Jls THE pAp BLOCK uNDFp jEsT Gtp tHAN ALLOWED? 

4S jBRANCH IF YES (FALL INTO ENOPAS) 

«l57776,(sp) IFXIT i>'lTH MAxADp" 28K gEGMENf tEst SIZE 

(8P)*»Rp iSET R0 TO MAXIMUM VIRTUAL TEST ADDRESS 

*?»Pi^ IMAKE MAXIMUM MEMOpY + 2 

PC jANn EXIT MAXADR ROUTINE 



t?P)+,(SP)4 



IFIXUP STACK 

lAND FALL THpU TO ENDpAS, 



1 
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2628 

2629 

2630 

2631 

2632 

2633 

2634 

2635 

2636 

2637 

2630 

2639 

2640 

2641 

2642 

2643 

2644 

2645 

2646 

2647 

264fl 

2649 

2650 

2651 

2652 

2653 

2654 

2655 

2656 

2657 

2658 

2659 

2660 

2661 

2662 

2663 

2664 

2665 

2666 

2667 

2668 

2669 

2670 

2671 

2672 

2673 

2674 

2675 

2676 



005334 
005342 
005344 



032777 
001055 
012746 



005350 012701 



005354 
005360 
005362 
005366 
005370 
005374 
005376 



P'12703 
005216 
020137 
103043 
112702 
105302 
002766 



005401^ 105721 
005402 001774 
005404 020227 



005410 10 3404 

005412 101026 

005414 t'04767 

005420 000404 

005422 010237 

005426 004767 

005432 011637 

005436 004767 

005442 005043 

005444 114113 

005446 105021 

005450 005043 

005452 105237 

005456 004767 

005462 012703 

005466 000742 

005470 004767 

005474 000756 



000020 
177777 
007744 
0HP376 
000310 
000022 



00100i» 

000312 

001202 
000312 
001 176 



000314 
001316 



000 376 

000750 



l» TYPE R(..IITINt FOP ERROR STACK 



Tf-IS POUTPiE IS USED TO DETER^«INE IF TYPE OUT OF THE ERROR STACK 
FCP 0»'LY THE FAILING RITS IS REQUIRED Op NOT 



173106 ENDPASI MT 

BNF 

STPSTKi f'OV 

Mnv 

TYPSTKl MOV 
INC 
CMP 

RHIS 
hOVP 

retstk» HFCB 

BIT 

TSTP 

HFq 

CfP 



BLO 
BHT 

JSP 
PR 
2SI MOV 

JSR 
FAILNMl MOv 
JSR 
CLp 
MOVB 

CLRP 
CLP 
INCB 
^TSR 

MOv 
BR 
pApFLl JsP 
BR 



«50f fSWP 

6P-0P 

S-1,-(SP) 

SfNDPPG,Pl 

«»176,P3 

CsP) 

F, ,»»FNnsTK 

Stop 

»i8.#P2 

P? iir ALL 

TVPSTK 

RFTSTl< 
P?,«16. 



2f 

prpFL 

PC, TRADER 

F/ilLNM 

R2,e«DECV^RD 

PCiTYPDEC 
C5p)»»«DECrtFD 
Pr,8TPDEC 
- ( R 3 ) 
-(Rl)#(P3) 

(°1)* 
-(p3) 
SiiTYPCNT 
PC'RPTOCt 

»376,p3 
PFTSTK 
pr^TPPpEp 
FAILNM 



;ARE ir. GOI^'G TO TYPE THE ERROR STACK AND E^D OF PASS? 

I IF 'JOT THEM GO TO SEOp 

jTHF PROGpftM HAS REACHED THE END A^D ERROR 

fSTfiCX AND FND OF pAsS ^ILL BF TYPED Oyx 

»PLACE THE STARTING ADDRESS OF THE ERpOp STACK 

IFOR TO 4K MEMORY in pi 

IIF WE HAVE GONE tHru T^-E E^tIrF 

jHAS THF END OF THE ERROR STACK BEEN REACHED ? 

>THFN go tO type END OF PASS 

16 RiTS OF tHIs BANK HAVE BEEN CHFCKFD. 

iPEEN CHECKED FOR ERROR THEN SEE IF THERE 

;IS ANY MOrF 4K memory BANK 

fOTHFPWISE CHFCK THE BYTE STORED AT (Pi) 

riF It Is ^ WE wILL NOT TYPE It 

JIS THE POINTER POINTING TO ERROR STACK BYTE 

l^'CftNx FOp COLLECTING ADDpESS FAlLupES FOp 

ITHF SPECIFIC MEMORY BANK 

>IF NOT THEN GO TO TYPE BIT NyMBER 

IIF IT IS POINTING TO THE STACK LOCATION INTENDED 

ITO COLLECT PAplTY FAILURES THEN GO TO PARFL 

lOTHEPWiSE TYPE "ADDRESS EPPOP" 

JPRFPARE TO TYPE THF NUMBER OF THE FAILING BIT 

»IN DECIMAL 

jGO to type THE BIT NUMBER IN DECIMAL 

'PREPARE tO type tHF pAGF NyMBEp 

>IN DECIMAL 

jPREPAPE TO PRINTOUT THE NUMBER OF TI^FS THIS 
IFAILurE OCCUPED 
JCLFAR THE ERROR STACK 

JFNABLE THF TYPE OUT "f j WORDS 

I TYPE THE 4K BANK AND THE NyMBEp OF tI^Es 

JTHIS FAILURE WAS SEEN 

»pEsFT SCRATCH stACK FOp EACH BIt PrINtFD. 

J TYPE "pAp Epp" 
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2677 
267S 
2679 
2680 
2681 
2682 
2683 
2684 
2685 
2686 
2687 
2688 
2689 
2690 
2691 
2692 
2693 
2694 
2695 
2696 
2697 
2698 
2699 
2700 
2701 
2702 
2703 
2704 
2705 
2706 
27«7 
27(18 
2709 
2710 
2711 
2712 
2713 
27l4 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 



005476 

005500 
M05504 
^05510 

005512 
4^05516 
t'05524 
W05526 
C105532 

005540 
005546 
005552 
005556 
005560 
005564 



005002 
004767 
105737 
001043 
005237 
032777 
001012 
004767 
04p520 

013717 
004767 
013700 
001405 
004767 
000005 



005566 000137 
005572 W00137 



005576 
005602 
005606 
005610 
005614 
005616 



004767 
{U37M4 

M14445 
02^437 
101374 
000207 



005620 004767 
005624 000167 



00201 4 
00'>i3t 5 

000406 
000{^4p" 

001052 
051523 

0t,-'a406 
001066 
000042 



000156 
000250 



001616 

000344 



177752 

001^400 



»« END OF PASS 



TVPE "PASS8" AND DISABLE PARITY, 

ALsO SEPVICE ACTtl, 

A'iD EVFRY CONSECUTIVE PASSES UNLESS BIT 4 OF $SWPEG IS HIGH 



000043 
000312 



SEOPi CLP 

vJSP 
TSTR 

INC 

BIT 

BNE 

TYpEOpI JsP 

.ASCIZ 

.EVEN 

MOV 

JSR 

HOV 

BEQ 

JSP 

pEsET 



ftCTljl 



P2 fSET H2» PAPITY MODULE DISABLE CODE 

pr»pAplTY »G0 DISABLE pApIfY MOdu^Es IF sELECtED. 

PiSAVKBP jCONTMOL-C TYPED? 

CtLr »PPANCH IF YES"RESTOrE LOADERS AND HaLj" 

flUSPASS jlNCREMENT PASS COUNT 

840,(lswp J"PA5S*XX" PRINTOUT WANjED? 

ACTn {BRANCH IF NO 

pr,TPCpLF » TYPE CR» LF# AND "pASS**" 

/PAS5#/ 

0t$PASS,(9|iDECWpD fGET PASS COUNT 
PC'STPDEC fTYPE IT 

8S42»R0 iGET THE MONITOR ADDRESS 

SnOAGN »IF NONE 

PC»PLODEP IPESTORE XXDP MONITOR 
ipeturn to ACtII "^ONItOR. 



j« SEPVICE XXDp/ACTll 

JMp B«SENDAn 



SOOAGNJ JMP 


08PFSTRT 


PLODFPI JSP 


PC»CLPMM 


MOv 


a«sAVR4,p4 


4S| MOV 


-fP4)i-(R5) 


CMp 


R4,a8ENDSTK 


PHI 


4S 


PTS 


PC 


•CONTROL C HANDLFC 


CTLCi JSP 


PC»PLODEP 


JMp 


apthlt 



JJU»^P TO ACT SERVICE 

fPEPEAT TEST IF NOT UNDER ACTU/XXDP 

fSmP MEMORY MANAGEMENT SO CAN RESTORE LOADERS 
fpEsT^pE p4 wItH sAVr4 
IPESTORE LOADERS 

JpETUpN FpOM pLODEp CALL 



jRESTOPE ABS LOADER 

fIF NOT APT HALT Af FAtHLt 
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SEO ^^^^ 



2724 








2725 








2726 








2727 








2728 








2729 








2730 








2731 


005630 


017617 


000000 


2732 


005636 


010346 




2733 


005640 


010046 




2734 








2735 








2736 








2737 


005642 


010103 




2738 


005644 


004767 


001570 


2739 


005650 


01l7ti3 


000312 


2740 


005654 


110337 


000 40 3 


2741 








2742 








2743 








2744 


005660 


rtl0346 




2745 


005662 


012703 


000376 


2746 


005666 


ri3743 


000306 


2747 


005672 


005043 




2748 


005674 


113713 


0M04K2 


2749 


005700 


016643 


000006 


2750 


005704 


011143 




2751 


005706 


010043 




2752 


005710 


005043 




2753 


005712 


016313 


000004 


2754 


005716 


040013 




2755 


005720 


046300 


000004 


2756 


005724 


050013 




2757 


005726 


012700 


001766 


2758 


005732 


060700 




2759 


0057 34 


062700 


000P22 


2760 


005740 


005316 




2761 


005742 


002374 




2762 


00574 4 


005726 




2763 








2764 


005746 


105037 


000277 


2765 


005752 


105737 


000300 


2766 


005756 


001007 




2767 


005760 


105720 




2768 


005762 


105737 


000301 


2769 


005766 


001003 




2770 


005770 


105720 




2771 


005772 


005713 




2772 


005774 


100015 




2773 


005776 


122710 


000377 


2774 


006002 


001401 




2775 


006004 


105210 




2776 


006006 


122710 


000001 


2777 


006012 


001404 




2778 


006014 


032777 


000400 


2779 


006022 


001002 





000402 EPPORi 
181 



>« ERROR ^'A'^^LING RCUTlrJE 



.* pcPGRAM COMES HERE EACH TIME AN ERROR Is ENCOUNTERED THIS 

;* p^uxINE TYPES f^UT THE EprOr MEssAGE IN xHF FOpMAT GIVEN EApLlEp 

MOV a(SP),0#SFATAL jLOAD THE LOCATION $FATAL WITH THE ERROR NUMBER 

MOV F1»-CSP) ISAVE p3 

MOV Pi..,«CSP) jAND P0 ON THE STACK 



;SETUP BANK NO, V FATAL FOP APT 



172426 





MOV 


Pi,P3 




JSR 


pr»GETBNJ< 




MOV 


BkPBNKiRj 




MOVP 


p3#a»8FATAL+l 


; 


MOV 


Ri,-(SP) 




MOV 


«376#R3 




MOV 


(UiPASFLG,"(R3) 


2SI 


CLP 


-(R3) 




MOVP 


(a«8FATAL,(P3) 




MOv 


6fsp),-.(p3) 




MOV 


(Pl)»-(P3) 




MOv 


P('#-(r3) 




CLP 


-(P3) 




MOV 


4fp3),Cp3) 




BIC 


Rv^#(H3) 




PIC 


4rp3)fp0 




BIS 


Rf.»(B3) 




MOv 


»FNnppG»,-24,,Ri 




ADD 


Pr,R0 


631 


ADD 


»l8,,p0 




DEC 


(SP) 




BGE 


6$ 




TST 


(?P) + 


ERRTYPI 


CLRB 


9«TYPFNp 


ISI 


tstB 


a«8pREpp 




BNE 


38 




TSTB 


Cc0)t 




TSTP 


(a«gAOEPP 




BNE 


38 




TSTB 


(P0) + 


281 


TST 


(P3) 




BPL 


48 


311 


CMPB 


S377#(r0) 




BEQ 


58 




INCB 


(p0) 


SSI 


CMPB 


#1»(R0) 




BEQ 


7S 




PIT 


i400»9SWR 




BNE 


4S 



»GET VIRTUAL ADDRESS UNDER TEST FOR GETBNK 

IGET HAMK NO, UNDER TEST INtO PBNK 

|GET BANK UNDER TEST 

ISTOrE failing bank no. FOp APT 



ITE^'PORARILY STORE P3 

li^AKE r3 as the STACK pOINfER 

lOUTPIFT THE WORD STORED AT 

IPUT EPPOP NO, ON ERROR STACK 
JPLACF THE rETURI^ PC AT Cp3) 
IPLACE BAD DATA, 
lAND GOOD DATA ON jHE STACK 

ITAKE THE 

lEXCLUSlVF OP OF GOOD AND PAD DATA 
ifO FIND THE BITS tHAt FAILED 
jAND PLACE IT ON THE STACK 
SlfHIs COOF BpTNGs fHE pFLAjIVE ADDpEss 
lOF THE STARTING OF THE ERROR STACK 
iFOp THE SPECIFIC 4K BANK 



IPESTORE THE STACK POINTER 

IDISABLE ANY TYPE OUT 

I IF tHIs Is pAplTY PROBLEM 

ITHEN GO TO 38 

fOTHEpWlsE INCREMENT tHF ERROp STACK pOINtRr BY I 

I IF THIS IS ADDRESSING PROBLEM 

ITHEN GO TO 38 

IINCRFMENt THE POINTER P0 BY 1 

>IS BIT 15 0F Cr3) SET? 

lIF NOT THEN GO TO 48 

IOtHErWIsF SEE IF THIS ERrOr HAS OCCUPED 377 TIMES 

I IF SO DON'T BUMP ERROR COUNT 

» INCREMENT THE ERROr COU^TEr BY I 

|MOPE THAN I ERROR OCCURRED ON THIS BIT? 

IBRANCH ir NO 

ISTOP ERROP PRINTOUT AFTER I WANTED? 

fBRANCH IF YES CDON't TYPE ERROp) 
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SEO 0061 



2700 
2781 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
28CT1 
2802 
2803 
28«4 
280S 
2806 
2807 
2808 
2809 
2810 
2811 
28t2 
2813 
28l4 
2815 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 
2825 
2826 
2827 
2828 
2829 
2830 
2831 
2832 
2833 
28 34 
2835 



H06024 
006030 
006034 
006036 
006042 
006044 
006050 
006052 
006056 
006060 
006062 
006064 
006066 



105237 
105737 
001403 
004767 
00041 1 
105737 
00140J 
004767 
00040 3 
105720 
006313 
001342 
112737 



000277 

000300 



00n3t^l 
000342 



000006 000314 



006074 004767 0"IU42 
006100 004767 000616 



006104 
006110 
006112 
006114 
006120 
006122 
00613M 

006132 
006134 



005037 
012600 
012603 
105737 
001404 
012737 
000442 

010246 
005777 



0000fr<l 000400 



006140 100405 



006142 004767 001526 



006146 105737 000042 
006152 001401 



006134 000000 



006156 012602 

006160 062716 00rt002 

006164 000207 



006166 

006166 004767 00^412 

006172 c^5ll05 020122 0P0043 



006200 017637 000000 000402 

006206 105237 0P0314 

006212 012703 000376 

006216 013743 000402 

006222 005743 



711 


INCB 


SuTYPENB 


4$l 


tstb 


(SSSPPEpp 




BEO 


96 




JSP 


PC»TPPREP 




BP 


88 


911 


T5TB 


9!«SA0ERP 




BEO 


63 




JSP 


pr»TPAOEpp 




BP 


86 


6$! 


TSTB 


(P0) + 




ASt 


fPI) 




PNE 


28 


fill 


MOVB 


«6,i»TYPCNT 




JSP 


PCPUTAnp 




JSP 


PC, TYPERP 


10SI 


CLP 


P#$PRERP 




MOV 


(SP)+#RP 




MOV 


(SP)t,R3 


FNDEpp) 


1 TSTB 


9»8EMV 




PEQ 


28 




NOV 


M»o«8MsGTY 




BP 


FiiTHLT 


2SJ 


MOV 


R2,-(SP) 




TST 


flswp 




PMI 


4S 


rCHFCK 


FOP CONTPOL-C KEY 




JSP 


PCCHECKC 


7SI 


TSTP 


8*42 




BEq 


6$ 



MOV 
ADD 



(5;P>'^fR2 

#?,(SP) 

PC 



FATERPI 

sEqEppi jsp PCTPCrLF 

,ASCIZ /FPP «/ 

.EVEN 

MOV 0{SP)#P»SFATAT. 

INCB 9»tYPCNt 

MOV «376»P3 

MOv 9«8FAtALi-(r3) 

TST -fP3) 



»ENABLE the TYPE OUT ROUTINE 

IPAplTY ERPOP? 

jBBANCH IF NO 

JELsE TYPE "PAR Epp" 

jAND OON'T TEST INDIVIDUAL BIT FAILURES, 

lAOnpESS FRpOp? 

IBRANCH IF NO 

IPRIMT "APR Err" 

IPOINt TO next entry in Error STACK 

lis THERE STILL AN ERROp BIT SET IN EPROp, 

>Br IF YES " '^EEp FILLING fCRpOp STACK 

jTELL TYPOCT TO TYPE fi WORDS OF ERROR STACK, 

tTHE STACK POINTED BY R3 

IGO TO THE SUBROUTINE TO pLACE THE ADDRESS IN Pi 

;AT LOCATIONS Cr3) AND (p3-2J 

ITYPE EPPOP STACK (7 WOpDS) 

fCLEAp ADDRESS/PARITY EPROr FLAGS 

IPESTOpE R0 

{AND R3 

JARF WE PUNNING Ui^DER APT? 

I IF NOT THEN TEST FOR HALT 

IOtHEPWIsE INFORM THE APT 

fGOTO FATHLT and WAIT FOP APT, 

fSAVE R2 TEMP 

IDOEs THE OpEpATOp rEquIrE tHE PrOGrAM jO HALf 

fON ERROR 

;IF SO THEN HALT 0^ ErrOr 



fIF CONTROL-C TYPED THEN PRINT ERROR HISTORY 

IRND HALT At FAtHLt^ 

>fiPF WE RUNNING UNDER ACT? 

fBRANCH IF NO 

jPROGPAM HAS HALTED ON ERPOR» Rl IS POINTING 

fjO A LOCATION WHICH sHOyLD HAvE CONjAlNED 

jTHE WORD STORED IN R0 

IpEsTOpE p2 

jPESTORE the RETURN ADDRESS 

»pEtURN FpOM THE suBrOutI^E 



) 



fTYpF "Epp «" 



ILOAD THE LOCATION 8FATAL WITH THE ERROR NUMBER 
ItELL StP^'U" TO type 1 IwOpD 
JSTPN'JM USES P3 AS STACK 
fpUT Error NO, ON STACK 
jSTP^UM REQUIRES THIS 



CZKMA MACYU 30A(1052) 05-MAP-79 
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09jf2 PAGE 62 

fpror handling routine 



2836 


006224 


004767 


000560 


2837 


006230 


105737 


000420 


2838 


006234 


001327 




2839 


006236 


000000 




2840 


006240 


000137 


000250 


2841 








2842 








2843 








2844 








2845 








2846 








2847 








2848 








2849 








2850 








2851 








2852 








2853 








2854 








2855 








2856 


006244 


012637 


000356 


2857 


006250 


011637 


000360 


2858 


006254 


013706 


000350 


2859 








2860 


006260 


010067 


000130 


2861 


006264 


010167 


000126 


2862 


006270 


013701 


000352 


2863 


006274 


012700 


17210^^ 


2864 








2865 


006300 


005701 




2866 


006302 


001441 




2867 


006304 


006001 




2868 


006306 


103005 




?869 


006310 


005710 




2870 


006312 


100406 




2871 


0063J4 


020027 


172136 


2872 


006320 


002032 




2873 


006322 


062700 


000002 


2874 


006326 


000766 




2875 


006330 


042710 


10000C^ 


2876 


006334 


011001 




2877 


006336 


006101 




2878 


006340 


006101 




2879 


006342 


006101 




2880 


006344 


006101 




2881 


006346 


042701 


000777 


2882 


006352 


105237 


000300 


2883 


006356 


004767 


177246 


2884 


006362 


000050 




388S 








2886 


006364 


016700 


000024 


2887 


006370 


016701 


000022 


2888 


006374 


013746 


00CT360 


2889 


006400 


013746 


0003S6 


2890 


006404 


000002 




2891 









JSP PC^FATYP ITYPE EPROR NO, 
APTHLTt TSTB 0»sENV IPUNNING UNDER APT? 

BNE FfDEPR jBRANCH IF YES 

FAtHLt! halt IFATAL ERpOp Or "C HALT, 

JMP BspESTPT IPESTAPT TST PUT DON'T CLEAR PASS COUNT 

jlN CASE "C RESTART, 

{PAPERR 

! PARITY TRAP HANDLER 

jCO^'E HERE FROM a TRAP TO 114, 

: TMIS ROutTNF searches the available parity ^ODuLEs AMp IF ONE 

;HA5 a parity EPPOp BIT SET THE GET THE PARITY ERPOr ADDRESS 

}AND CALL THE "EppOp" pOUTlNE fO PrINt ErrOr MessAGE, 

;IF NO PARITY ERprp BITS CA'S BE FOU^'D A FATAL ERROR Is DONE, 

J 

JPEGISTFR US AGE, 

;R0a HOLDS PAplTY MODULE ADDRESSES 

jPlB GETS ERROR ArDRESS FOR "ERROR" CALL, 

fSET PARSP TO RETURN ADDRESS 

JSAVE psw FOR rETUR^ 

>AHD RESET THE SP SINCE MOT ENOUGH STACK ROOM 

>t0 complete the EPROp service ROUTINE. 

fSAVE P0 DURING PARITY SERVICE 

JSAVE Rl DURING PArItY sErvICF 

>GET PARITY AVAILABLE MAP 

Jp0s FIRST PAplTY ADDpEsS. 

lany parity modules available? 

;br if mo -fatal error- 

fshift parity map bit imo c bit, 

»PRANCH IF THI5 PARITY MODULE NOt AVAILABLE, 
JPAFITY MODULE EPROR PIT SET? 
IBrANCH if YEs -call "ErrOr" rOutINE 
JDONE ALL PARITY MODULES? 
IBr if YFs- go tO FATAL ErrOr CALL- 
fPOINT TO NEXT PARITY ADDRESS 
lANO KEEP TRYING 
ICLEAR PARITY ERROR BIT, 
>GEt pApItY MODULE CSR 
»SHIFT ERROR ADDRESS BITS n-S INTO i5»9 



fTELL "ErrOr" pArItY ErrOr CALL. 
|»EPPOR» REPORT ERROR MESSAGE 
|4H»»»»»Ebp0r NUMBER 50»«»«** 

fPESTORE R0 

ipEpTORE Rl 

fSET RETURN PSW ON STACK 

lAND SET RETURN ADDRESS OH STACK 

IPETUrN to TEST WHERE PARITY TPAP OCCURRED, 



PArErri 


MOV 


CSP) + ,'?#PARSP 




MOv 


C,.;p),!3«pApPs 




MOV 


9|»SAVP6iSP 




MCV 


Pp,SAVR0 




MOv 


Rl rsAVRl 




MOV 


aipARMAP,Ri 




MOv 


«l72l00,p0 




TST 


Rl 




BED 


4$ 


581 


POP 


fl 




BCC 


2$ 




TST 


(P0) 




BMI 


38 




CMP 


R<?'»172136 




PGE 


43 


28I 


ADD 


8?#P0 fPOIN' 




Pp 


IS 


3$l 


BIC 


*100000»(R0) 




MOv 


(r0)#P1 




POL 


Rl 




pOL 


PI 




POL 


Rl 




pOL 


pi 




BIC 


»777»Pl ISAVE 




INCB 


anSppERp 




JSP 


PC»^RPOP 




50 






MOV 


SAVP0,R0 




MOV 


SAVpliRl 




MOV 


9SPARPS,-(8P) 




MOV 


i8PARSP»"CsP) 




PTI 





CZKMft 


MACYll 


3OA(1052) 05"W/ 


CZKMAF, 


pit 05-MAR«79 


09102 


2892 








2893 


006406 






2894 


006406 


004767 


177«S54 


2895 


006412 


0000S1 




2896 








2897 








2898 








2899 








2900 


«^06414 


00P000 




2901 


006416 


000000 




2902 








2903 








2904 


006420 


105737 


000277 


2905 


006424 


001406 




29P6 


006426 


004767 


000160 


2907 


006432 


042101 


02'^122 


2908 


006440 


000122 




2909 








2910 


006442 


0002<?7 




29U 








2912 


006444 


105737 


000277 


2913 


00645H 


001406 




2914 


006452 


004767 


000134 


291S 


006456 


040520 


020122 


2916 


006464 


r00122 




2917 








2918 


006466 


000207 





EPpOr handling pOfJTlNtC 

ICOHE HFPE IF NO PARITY EPpOP FLAG FOUND sET 
4$l 

JSP Pr#FATEPR j»ERPOR» pEPOpT ERPOp ^ESSAGB AND HftLT AT FATHLT 

51 >#»»***EPrOr number 51«»»*«» 

jR0-fPl ApF SAVED HERE FOp PARITY TRAP DUE TO INSUFFICIENT 

SSTACK SPACE BETWEEN 500-450. 

SAVP0I ,5AVE R0 DUPING PARITY TRAp SERVICE 

sAvpii isAvE pi During papIty trap service 



ITYPE ERROR? 

fBRANCH IF NO 

f TYPE CR, LF AND "ADR EH" 



SEQ 0063 



TPADEPI 


TSTB 
BEQ 
JSP 
.ASCIZ 


^STYPENP 
18 

PC|PNT^'ES 
/ADR ERR/ 


181 


.EVEN 
RTS 


PC 


TPPREPI 


TSTB 
BEQ 
JSP 
.ASCIZ 


i«TYPENB 
18 

PCPNTMES 
/PAP Epp/ 


l$t 


.EVEN 
RTS 


PC 



jEPROp PRINTOUTS ALLOWED? 

IPRANCH IF NO 

|G0 TO TYPE CR, LF AND "PAR EPP" 
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CZKMAF, PI 1 05-MAR-79 09|02 TYPE OUT ROUTINE 



2919 
2920 
2921 
2922 
2923 
2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2950 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 



^06470 
006472 
006476 
O06500 
006502 
006504 
006506 
006510 
006514 
006516 
006520 
006524 
006526 
006530 
006532 
006536 
006542 
006544 

006546 
006954 
006556 
006562 
006564 
006570 

006572 
006576 



006604 
006610 



006612 
006620 
006622 
006630 
006632 



010146 
016601 
1<^57?1 
001376 
000412 
010146 
010046 
016601 
112100 
001403 
004767 
C00773 
012600 
005201 
042701 
010166 
012601 
000416 

132737 

001005 
105737 
100375 
110037 
000404 



000^10 1 

000002 



000ki4r^ 000421 



177566 



004767 177706 
005015 000 
006602 
000207 

004767 177762 
000735 



032777 000020 

001323 

123737 000042 

001717 

000764 



171630 
000046 



j» TYPE OfT ROUTINE 

f* THIS POUTINF IS USED HY THE PROGRAM fO TYPE OUT ANY CHARACTER 



MOV 

MOV 

TSTP 

BNE 

HP 

MOV 

POV 

MOv 

MOVP 

PEQ 

JSP 

PR 

MOV 

INC 

BIC 

MOv 

MOV 

PR 

STPCHPl PITR 
RNF 

2Sl TSTB 
BpL 
MOVP 
BR 



2Sl 



4$t 

pETTYPJ 



481 



PCRLFl JSR 

.AsClZ 
.EVEN 

EXTYpI PTS 

TPCPLFi JSP 
Pp 



PNTHESI BIT 
BNE 
CMPB 
BEQ 
BP 



Pl»-(SPJ 

2(6P)»R1 

(Pl) + 

4S 

RFTTYP 

P1,-(SP) 

P-^i-tSP) 

4(SP)»Pl 

(Pl)*»R^ 

46 

PC#8TPCHR 

2$ 

C?P)+»R0 

PI 

«1»R1 

PJ»2(sP) 

(SP)+,Ri 

EXTYP 

«40#9«8ENVM 

43 

flMTPS 

28 

Rffl,0#STPB 

EVTYP 

PCiSTYPE 
<15><12> 



I IF THIS TYPE OUT HAS BFEN SUPRESSED THEN 
IPREPARE TO RETURN 

ISAVE Rl 

lAND R0 ON THE STACK 

JpLACE THE ADDpEsS OF MfssAGE tO RE TYPED I^ pi 

IPLACE THE BYTE TO BE TYPED IN P0 

>IF It Is end of messagf then go tO 48 

JOTHERWISE GO TO TXPE THE CONTENTS OF P0 

I RESTORE R0 

ICAUSE Rl TO 

IPOINT TO EVEN ADDRESS 

fMODiFY THE RETURN' ADDpEss 

JPESTORE Rl 

J AND pETUR^' VIA RTS PC 

IHAVE TYPE OUTS BEEN DISABLED? 

»TF sO THEN RETURN FpOM yHE Sl'BROuTI^'E 

IWAIT HERE 

fUNflL THE PRINTER Is READY 

iload data to be typed into data peg, 
ireturh 



»Cp/LF 



irCturn 



PC#PCRLF 
StYpE 



«20»9SWP 

NOTYP 

i»42f^«46 

NHTYP 

TPCPLF 



JTYPE CR/LF 

INOW GO TO TYPE tHE rEST OF THE MLssAGE 



IPHINTOUTS ALLOWED? 

IBrANCH if NO 

f PUNNING UNDER ACT U? 

fBRANCH IF YEs -^Ot PRINtOUT" 

tSEND CR/LF AND TYPE ^1ES5AGE, 
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CZKHAF.pn 05»Mar-79 09|P2 pOuTiNF fO TYpE OpT A DECIMAL N^MpEp 



2967 
2968 
2969 
2970 
2971 
2972 
2973 
2974 
2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
298S 
2986 
2987 
2988 
2989 
2990 
2991 
2992 
2993 
2994 



006634 004767 177732 



006640 005046 

006642 013746 000312 



006646 162716 000012 
006652 002403 



006654 005266 
006660 W00772 



006662 
006666 
006672 



062716 
R52716 
112667 



006676 0S2716 
006702 112667 
006706 C04767 



000002 

000012 
000060 
00002» 

000060 
000007 
177572 



SEO ««?65 



>« ROUTlNfr TO TYPE nUT A DECIMAL NUMBER 



006712 020040 030040 000060 
006720 0002P7 



J* 
I* 



TYPDECI JSP 

STPDECl CLP 

fMOv 
SUB 
BLT 

INC 
BR 
4$l ADD 
Bis 
MOVB 

Pis 

MOVB 
JSP 

.ASCIZ 

.EVEN 
6$l PTS 



THIS POUTINF IS USED TO CONVERT THE CONTENTS OF LOCATION 
DPCWPD TO DECIMAL NiiMbers and jypE tHcN FOLLOWING 3 SPACES 



PCiPCPLF 

-tSP) 
O^DEC^BDi^CsPJ 



r(SP) 



#10, 
4S 

2fSP) 
28 

«10,#(SP) 

*6f?i(SP) 

(5P)+#6S*2 

«60,(sp) 

CSP)*»6$-3 

PCfSTYPE 

/ 00/ 



JTYPE CR/LF 



»GET tHE wOpD THAT HAS T^ BE CONyCPTED jO A 
lOECIMAL NUMBER 

>1F THE NUMBER IN (SP) ^AS LESS THAN 10, THEN 

>G0 TO 4S 

^OTHERWISE ADO 1 TO THE LOCATION STORING 10*8 DIGIT 

lAND RETURN TO 2$ 

IMAKE THE CONTENTS OF (SP) A DECIMAL NUMBER 

IPLACE THE I'S DIGIT TO BE TYPED 

f^'AKE THE CONTENTS OF (SP) A DECIMAL NuhBEp 

fPLACE THE 10'S DIGIT TO PE TYPED 

IGO TO TYPE THE NyMBER IN DECIMAL FOLLOWED BY 

>3 SPACES 



) 



IpETUpN FpOM THE SUPrOutINE 
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SEQ 0066 



2995 








2996 








2997 








2998 








2999 








3000 








3001 








3002 








3003 








3004 








3005 








3006 








3007 








3008 








3009 








3010 


006722 


C132777 


020000 


3011 


006730 


001054 




3012 


006732 


004767 


177634 


3013 


006736 


004767 


00M012 


3014 


006742 


00^447 




3015 


006744 


i"l2123 




3016 








3017 


006746 


012113 




3018 


006750 


105237 


000314 


3019 


006754 


052743 


000004 


3020 


0(16760 


106113 




3021 


006762 


103376 




3022 


006764 


005000 




3023 


006766 


106113 




3024 


006770 


006100 




3025 


006772 


106113 




3026 


006774 


006100 




3027 


006776 


000405 




3028 


007000 


004767 


177500 


3029 


007004 


020040 


000040 


3030 








3031 


007010 


005000 




3032 


007012 


012723 


000006 


3033 


007016 


000241 




30 34 


007020 


006113 




3035 


007022 


006100 




3036 


007024 


052700 


000060 


3037 


007030 


004767 


177512 


3038 


007034 


005000 




3039 


007036 


006113 




3040 


007040 


006I00 




3041 


007042 


006113 




3042 


007044 


006100 




3043 


007046 


105363 


177776 


3044 


007052 


001361 
105337 




304S 


0070S4 


000314 


3046 


007060 


001347 




3047 


007062 


000207 





}» OCTAL -^YPE OUT ROUTINF. 

.« ---»«_.-.»«...-..„._•„ 

I* 

»« THIS FOUTINF IS USED TO TYPE OUT THE OCTAL VALUES 

}« C^f'TROL SHOULD COME lO tHIs hOutImE k'TtH p3 POINTING tO 

j» T^'F LOW ORDER BITS (I.E. BITS 0-155 OF THF ADDRESS TO 

l» pr TYPED WHFRL As h3-2 sHOyLO CONtAIH tHE HIGH OrDER PITS 

J* (^.F. BITS ]b «. 17). CONTENTS OF LOCATION R3-J AND R0 ARE 

J« DfSTROYFD By THI5 SUBROUTINE 

BYTE TYPCNT SHOULD PF SET TO THE NU^'PER OF WORDS THAT HAVE 



IFRPOP PRINTOUT WANTED? 

JRHANCH IF NO 

fTYPE CP/LF 

JTYpE OCTAL NO, 

fRE^URN VIA RTS PC 

»PLACF THE HIGH ORDER BITS AT LOCATION POINtED 

?BY R3 

fAND NOW PLACE THE LOW ORDER BITS 

jFNABLE THE TYpF OUT OF ONE OCTAL WORD 





I* 


BYTE TYPCNT 
TO PE TYPED 


TYPEPPI 


PIT 


«2000CT,iaSWR 




PNE 


OfTXT 




JSP 


PC iPCPLF 




JSR 


pr,TYpOCT 




BP 


OCTXT 


OCTTYPJ 


HOV 


(t;n + i(p3)* 




MOV 


(Pl)«,(R3) 




INCB 


(IsTYPCNT 


TYPOCTI 


BIS 


M#-(R3) 


2SI 


ROLB 


(f3) 




RCC 


28 




CLR 


Rt- 




pOLB 


(r3) 




POL 


P^ 




pOLB 


(P3) 




POL 


Pf 




BR 


STPNUM 


RPTOCTI 


JSP 


PC#8TYPE 




.ASCIZ 


/ / 




.EVEN 




FATYPI 


CLp 


Pf" 


STPNU?M 


MOV 


»6»(R3)+ 


4$l 


CLC 






POL 


(P3) 




rOL 


R? 




BIS 


#60, R0 




''SR 


pCfSTpCHp 




CLR 


Re. 




ROL 


(r3) 




POL 


Pc? 




ROL 


Cp3) 




POL 


P( 




DECB 


«7(r3) 




BNE 


48 




DECB 


9«TYPCNT 




BNE 


RPTOCT 


OCTXTI 


RTS 


PC 



>GEt BITS 17 & 16 INTO p0 



I TYPE 3 SPACES 



ICNABLE THE TYPE OUT OF 6 OCTAL DIGITS 



JpLACE THE CApRY FpOM (pS) IN p0 

JOR THE CONTENTS OF R^ WITH AN ASCII g 

I TYPF THE OCtAL NijMBEr stOrED IN p0 



IPLACE THE CAPRY FROM (R3) IN R0 

jPLACE the carry from (R3) in P0 

I IF WE haven't typed THE 6 OCtAL DIGITS 

fTHFN REPEAT FROM 48 

I IF ALL THE WOrDS REQUIrED HAVE NOt BEEN 

ITYPED THEN REPEAT FROM RPTOCT 
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SEQ 0«67 



3046 








3049 








3050 








3051 








3052 








3053 








3054 








3055 








30S6 








3057 


007064 


Hl27n2 


0f«t4fl0 


3058 


007070 


105037 


000276 


3059 








3060 


007074 


032777 


010000 


3061 


007102 


001441 




3062 


(107104 


012700 


0000M4 


3063 


007110 


012720 


007210 


3064 


007114 


fn27l0 


000340 


3065 


007120 


005037 


177572 


3066 


007124 


105217 


0Mi^276 


3067 








3068 


007130 


012701 


17234P 


3069 


007134 


005021 




3070 


007136 


062702 


000200 


307| 


007142 


010221 




3072 


007144 


020127 


172356 


3073 


007150 


103772 




3074 


007152 


012711 


007600 


3075 


007156 


012701 


172300 


3076 


007162 


012721 


077406 


3077 


007166 


020127 


172316 


3078 


007172 


101773 




3079 


007174 


P'05237 


177572 


3080 


007200 


005010 




3081 


007202 


012740 


000104 


3082 


007206 


000207 




3083 








3084 


007210 


^122626 




3085 


007212 


004767 


177366 


3086 


007216 


(^47516 


04R440 


3087 








3088 


007224 


004767 


176736 


3099 


007230 


00W052 




3090 








3091 


007232 


000762 




3092 








3093 


007234 


011702 


172354 


3094 


007240 


M00713 





j» ROUTIN'F TO SFT UP MEMORY MANAGFMKMT PEGISTFPS 
J* 



ME^'HNGi MOV 
MMpEGI fLpB 

PIT 
BEQ 
MOv 

MOV 

MOV 
CLR 
INCB 

MOV 

CLP 

ADD 

MOV 

CMP 

PLO 

•'OV 

MOV 

MOV 

CMP 

BLOS 

INC 

SpFT^'^'l CLp 
MOV 

pETMMl pTS 



2$l 



4Sl 



PFOGPAM CONtPOL comes here TO determine if the MEMORY MANAGEMENT 
Is AVAILABLE Op N0T» AND IF IT IS AVAILABLE THEN WHETHER 
THE MEMORY ABOVE 28^ TS REQUIRED TO BE TESTED OR NOT, 



NOMM| 



CMP 

JgP 

.ASCIZ 

.FVFN 

JSR 

52 

BP 



UPMMi MOV 
BR 



»1400,H2 

fl»MWfty|^ 

«10000,0SWR 

RETMM 

#4,p0 

«NiOMM,Cp0) + 

»340#(p0) 

a#SP0 

bsMMava 

«j72340,pi 

CPD* 

«200»R2 

P2»CPl)+ 

Rl.«l72356 

2S 

«7600»(pl) 

«l72300#Pl 

»77406#(P1)* 

Pl»»l723l6 

49 

a)(SP0 

(p0) 

»f'USER,-(R0) 

PC 

(SP)+»(SP)+ 
PfrTPCpLF 
/fO KT/ 

PCFATERR 



»M72354,P2 
Mt'REG 



JCLEAr tHF BYTE tHAt Is SUPPOsED t^ INDICATE 

)THAT MEM, MANJ^ IS AVAILABLE FOR TESTING 

JHAs THE OpERA^P AsJ<ED tO CHECK MEMORY MaNAGi ? 

}IF NOT THEN P^P"^ ^^^^' THE SUBROUTINE 

IPpFpApF TO SEfliP TIME OUT VECtOr 

jRETURN ADDRESS TO NOMM 

>AND >^ItH a PSW of 340 

jTRY TO REACH MEM, MANAG, SP0 

JIF It Is AVAILABLE tHEN sEt ^E^. MaNaG, AVAH'ABLE 

IBYTE 

Jpl IS POINTING TO PAP0 

IPAP0 WILL POINT TO BANK 

fSETUP PAP1-PAR6 



>PAr7 is pointing TO THt I/O PAGE 
JSETUP PDP0-PDR7 



lENABLE MEM, MANAG, 

IpEsTOpE tI^F Out TpAp VECtOr FOp ANY FUTUpE TpAp 



jPESTOPE STACK POINTER 

>TYpE "NO MEMOpY "ANAGEMENf MEssAGE 



|*EPPOR» REPORT ERROR MESSAGE AND HALT AT FATHLT 

j#«##»»error number 52«***** 



I RESTORE TIME OUT TRAP VECTOR 

JPREPARE TO UPDATE MEMORY MANAG, REGISTERS 
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IP PTt ADDpEsS GE'EpATOp 



SEO 0068 



3095 








3096 








3097 








3098 








3099 








3100 








3101 








3102 








3103 








3104 








3105 








3106 


007242 


00506 3 


177776 


3107 


007246 


M10113 




3108 


007250 


105737 


000276 


3109 


007254 


001425 






007256 


010J 46 






007260 


042701 


017777 




M07264 


040113 
(^527(^1 






007266 


004000 




007272 


«0fe001 






007274 


103376 






007276 


0627ei 


172340 




007302 


011101 






007304 


r5270i 


01ClCfiI' 




007310 


006101 






007312 


103376 






007314 


£^06101 






007316 


006143 






«07320 


006101 






007322 


006123 






007324 


050113 






007326 


012601 






007330 


000207 














































































































007332 


016143 


000001 




007336 


003043 














007340 


1161)3 


177777 


314S 


007344 


000207 





J* 

PUTADPI CLP 
MOv 
TSTP 
BEQ 
MOV 
BIC 
RIC 
PIS 
POP 
BCC 
ADD 
MOv 
BIS 
ROL 
BCC 
POL 
POL 
POL 
PPL 
BiS 
MOV 
PTS 



j# 18 BIT ADDRESS GENERATOR 



Tf-lS SUBROUTINE IS USED TO PLACE THE ADDRESS STORED I" Rl 
T' THE LOCAT^Of POINTED RY r3, tHE ADDrFsS J^ pi Is CONVERTED 
T'- AN 18 BIT ADDRESS ONLY IF ^'E^, MANAG, IS AVILABLE IN wHlCH 
C6SF THE HIGH ORDER BITS OF THE ADDRESS ARE PLACED IN LOCATION 
POINTED BY P3-2 



2SJ 



»2(P3) 

Rl,Cp3) 

08MMAVA 

6S 

Pl,-(5P) 

»l7777,pl 

Pl#(P3) 
»4000»pl 

Pt 

2S 

»l72340,Pi 

(cDfPl 

«10000»Pl 

Rl 

4? 

PI 

-(R3) 

PI 

(P3)* 

Hi #(r3) 

(SP)+»Rl 

PC 



IpLACE THE ADDpEsS STORED IN pi IN LOCATION (r3) 

;IS THE MEM. MANAG, AVAILABLE ? 

IIF NOT THEN pETUPN FpO" tHF SUBROUTINE 

jSAVt Rl 

>CLEAr BITS '^"12 OF THE ADDrEss ^^ Pl 

iLEAVE BITS 0-12 OF THE ADDRESS IN (P3) 

JppEpApK tO shift pl BY 12 pLACEs 

>GET the NUMBER OF PAR IN pl 
>GET the address OF PAR IN Ri 
JLOAD pl WItH the contents OF PAR 



IPLACE THE ADDRESS BITS 13-17 IN BITS 11*15 OF Rj 

IPLACE BIT 17 IN LOCATION POINTED BY R3-2 

JPLACF BIT 16 OF THE ADDRESS 

IPLACF BITS 13-15 OF THE ADDrEsS IN LOCATION Cp3) 

JRESTOPE Rl 

iRETUpN FpOM tHE subroutine 



2SI 



I* 

J* 
J* 

;« 

I* 

|« 

I* 
l« 
J» 
}« 

MOV 
CLp 

MOVE 
RTS 



get ADDPESS FPOM THE APT MAILBOX 



THIS SUBROUTINE Is USED TO GET ADDRESS FROM APT MAILBOX AND 
pi ACE It in THE LOCATION ijsFD BY tHF PrOGrAM fO DEFINE tHE 
MEMORY BOUNDRIES, 

PdOGrAM control sHOuLD COME tO tHIs SUBpOuTlNE WItH r1 pOINx- 
InG to the memory type in the apt mailbox AND R3 POINTING TO 
THE LOCAtION+2 where tHE LOw OpDER BItS OF tHE ADDpEss HAvE 
TO BE PLACED 



l(Pn#"(R33 
"fR3) 



-j(Rl)»(B3) 
PC 



IPLACE THE LOW ORDER BITS OF THE ADDRESS 

ICLFAp THE LOCATION wHEpE THE HIGH OpDEp BIts 

I HAVE TO BE PLACED 

IPLACE BITS 16 fi. 17 

IRETURN FROM THE SUBROUTINE 



007346 P05046 



("17777 

000040 
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3146 
3147 
3140 
3149 
3150 
3151 
3152 
3153 
3154 
3155 
3156 
3157 
3158 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3168 
3169 
3170 
3l7i 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3l8i 
3182 
3183 
3184 
318S 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 
3199 
3200 
3201 



007350 
007352 
007354 
007360 
0073*^4 
007366 
007370 
007372 
007374 
007376 
007400 
007404 
007406 
007410 
007414 
007416 



P12301 
011302 
042702 
052702 
006001 
006002 
103375 
005716 
001004 
005726 
0527M2 
000767 
012301 
012700 

040001 

000207 



00742*' 
007424 
007426 
007432 
007436 



105737 000276 

001404 

005037 177572 

105037 00;i276 

000207 



007440 
007442 
007444 
007450 



010046 
010346 

042703 017777 
052703 010000 



09102 PAGE 69 

CONVERT 18 BIT ADnpE'ss ^0 tHE pAp FOrM 



t» CONVERT 18 BIT ADDRESS 10 THE PAR FORM 



SEo 0069 






SGTSUl 


CLr 


-(SP) 


GETSIZI 


MOV 


(P3)+»Rl 




MOv 


((.3),r2 




BIC 


il7777#R2 


281 


PIS 


«40,R2 


481 


POP 


Pi 




POP 


R? 




BCC 


48 




TST 


CSP) 




p»JE 


6$ 




TST 


(SP)* 




BIS 


#100fP2 




BR 


4$ 


681 


MOV 


(P3)+,Rl 




MOV 


#160000»P0 




PIC 


Pt»Rl 




RTS 


PC 



THIS SUBROUTINE IS USED TO CONVERT 18 BIT ADDRESS STORED IN 
LOCATIONS POINTED BY p3 AND R3'f2 tO t^E FOpM It (((ILL BE STOrED 
If A PAR, THF RESULT IS LFFT IN P2, Rl IS LOADED WITH BITS 
0-12 OF THE ADDRESS A"D R0 wItH 160000 



JPREPARE TO PLACE ADDRESS BITS 13-17 IN BITS 
10-4 OF R2 



) 



ILOAO r2 wItH T^E low OpDFp BItS OF THE ADDrEss 
ICLFAR ADDRESS BITS 0»i2 



IrOTAtE RJ and R2 7 TIMES 

»IF RETURN PC Is ZERO THEN IT MUST BE THE 
IFLAG THAT WAS SET AT 8GTSIZ 
ipOp THE FLAG OFF STACK 
jKEEP ROTATING 

»placf the low order address bits in ri 

jleave bits 0-12 of the address in ri 
ireturn From the subrOrne 



f» SUPROlfTlNE TO DISABLE MEWORY MANAGEMENT 

l# -»«,-».- — .-.»--..«--„- — .».«.«-...«.•. 

f« THIS StiPPOUTlME IS CALLED TO DISABLE THE MEMORY MANAGEMENT 
)« uf'lT 



iSl 



TSTB i«MMAVA 

beq is 

CLR P«SR0 

CLrB 9«MwavA 

RTS P'- 



fWAS THE MEMORY MANAGEMENT ENABLED ? 

fIF NOT THEN GO tO IS 

JOISARLE THE ME"^0RY MANAGEMENT 

lAND no NOT Attempt to tEst '^fh, MANAGi 

fPETUBN FROM THE SUBROUTINE 



j# GET BANK NO, U^DER TEST 

CALLED BY FpRTYp ANn tST13 tO GEt BANK NQ, u^DEp TEST INt© pBNK, 
jREGlSTERS 

;R0spOINTEp TO pAs; UNDER TEST 
5R3aVIRTUAL ADDRESS ON FNTRY 
;R0+r3 Are RESTORED ON EXlTt 

GETBNKi MOV R!?,»(SP) »SAVE R0 

''Ov R3»-(SP) fSAVE r3 

RIC #i7777#P3 jSAVE ONLY VIRTUAL BANK BITS 

Pis M0000»p3 IsETUP r3 sHIFt BIt 
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SEQ 4'070 



3202 


0074S4 


000241 




3203 


007456 


006003 




3204 


007460 


103376 




3205 


007462 


105737 


0M0276 


3206 


007466 


001407 




3207 








3208 








3209 


007470 


006303 




3210 


007472 


062703 


17234^ 


3211 


007476 


(111300 




3212 


007500 


006300 




3213 


007502 


000300 




3214 


007504 


11000 3 




3215 


007506 


010337 


000312 


3216 


007512 


012603 




3217 


007514 


012600 




3218 


007516 


000207 




3219 








3220 








3221 








3222 








3223 








3224 








3225 








3226 








3227 








3228 








3229 








3230 








3231 








3232 








3233 








3234 








3235 








3236 








3237 








3238 








3239 








3240 








3241 


007520 


032777 


004000 


3242 


007526 


001456 




3243 








3244 


007530 


0127P10 


000004 


3245 


007534 


012710 


000 1 1 6 


3246 


007540 


060710 




3247 


007542 


005037 


000352 


3248 


007546 


012701 


172140 


3249 


0075S2 


012703 


100000 


3250 


007556 


010241 




3251 


007560 


050337 


00^332 


3252 


007564 


000241 




3253 


007S66 


006003 




3254 


007570 


103372 




325S 


007572 


012710 


000104 


3256 


007576 


005702 




3257 


007600 


001431 





CLC 




POP 


P3 


BCC 


IS 


tstb 


a»M^'AVA 


PEQ 


25 


1 ADDRESS ^ND PHYSK 


ASL 


P3 


ADD 


»i72340|P3 


MOV 


(p3)»R0 


ASL 


Hi. 


SWAB 


RP 


MOVP 


Pr.,R3 


Mnv 


P3»8»PPNK 


MOV 


(SP)*#R3 


MOV 


(sPJ + iRf' 


RTS 


PC 



ishift a bank bit 

MfNTlL IN BITS <2I0> OF P3 

I'^EhOPY MANPGFMENT UNDER TEST? 
r'O EXIT 



IMAKE r3 par ADDRESS OFFSET. 
j^'ftKE FULL PAR ADDRESS, 
JGET PAR CONTENTS 

JSHIFt BANK BITS TO BITS <7l0> 
»5ET P3 TO PHYSICAL BANK NO, 
»STOrE PHYSICAL BANK NO. 
IRESTORE R3 
IRESTORE R0 
JRETUPN TO CALLER 



; PARITY ENABLE/DISABLE ROUTINE 

t 

t THIS ROUTINE ENABLES Op DlSABl-ES PARITY MODULES AND PRINTS ASSOCIATED MEASSAGES, 

J IF PARITY AVAILABLE tHEN pIt13 OF "pEL" Is sEt ANO "PAr"ItY Is PRINtED. 

; ALSO THE BACKGROUND TEST PATTERN (LOC, PAKpAT) IS SETb376 

•REGISTER USAGE, 

;R0b pOlNTS TO Bus tI^'EOuT TRAR VECtOr (LOC, 4) 

;R1B HOLDS PARITY MODULE UNIBUS ADDRESS. 

•r7b on entry HOLDS ENABLE/DIsABLE CODE , 

; IF R2«0 THEN DISABLE 

J IF r2«1 THFN enable 

JR3= SCRATCH TO S<^TUp LOC, PArMAP WITH A MAP OF PARITY ><ODULES PRESFNT, 



»PAPITY TEST WANTED? 
IBpANCH IF NO 

IPOINT R0 TO BUS TIMEOUT ADDRESS, 

»sEt rEturn From tI^EOut trAp tO 59 

fIN THE CURRENT BANK, 

ICLEAp PArItY map HOLDER, 

fSET Rl TO LAST PARITY MODULE ADDRESS'»'2 

»SET r3 tO PAPMAP AVAILABLE CODE BEGIN. 

jENABLE A PARITY MODULE+TPAP IF NOT AVAILABLE, 

»N0 TRAP tO 58, $0 sEt PAplTY AVAILABLE. 

ISETUP NEXT pARMAp BIT 

IBRANCH IF NOT DONE ALL PARITY ADDRESSES, 

fpEsET BUS TiMEOuT TRAP VECtOr 

lis THIS A DISABLE CALL? 

IBRANCH IF YES (EXIT) 



iCALL 


IS 




J 


MOv 


»1,r2 lENA 


} 


JSR 


PC, PARITY 


PARITY 


1 BIT 


#4000, 05WR 




BEq 


68 




MOV 


#4,R0 




MOv 


«58-.-6,(p0) 




ADD 


PC,(R0) 


181 


CLr 


9»PArMAp 




MOV 


»l72l40,Rl 




MOv 


#100000»P3 


281 


MOV 


R7»-(Pl) 




Pis 


R3,a«PARMAP 




CLC 




381 


rOr 


P3 




BCC 


28 




MOv 


»RUSER#(p03 




TST 


R2 




BEQ 


6S 



1 
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SEU 0071 



3258 


(?«17602 


005737 


0PJ0352 






TST 


8#PAR?^AP 


3259 


007606 


001011 








PNE 


48 


3260 


007610 


004767 


176770 






JSP 


PCiTPCpLF 


3261 


007614 


f-t475l6 


05004P' 


05U01 




.ASCIZ 


/rO PAP/ 


3262 


007622 


000 












3263 




007624 








.EVEN 




3264 


007624 


004767 


176336 






JSP 


PC#FATEPP 


3265 


007630 


000053 








53 




3266 
















3267 
















3268 


007632 


152737 


00004(^ 


000405 


4$l 


PISP 


«40,?#REL 


3269 


007640 


012737 


000376 


000316 




MOv 


»l76,9«BAKpAT 


3270 
















3271 


007646 


004767 


176732 






JSP 


PC#TPCpLF 


3272 


007652 


040520 


000122 






.ASCIZ 


/PAR/ 


3273 












.EVEN 




3274 


007656 


000405 








BR 


EXITC 


3275 
















3276 










J GET 


HEPE IF PAPITY ADDPESS T 


3277 

















IW'EPE ANY PARITY MODULES FOUND? 
JBPANCH IF YES 
fPRlM "NO PAR" 



»*EpROp« pEpOpT ERpOp MESSAGE AND HALT AT FATHLt 
}#«»«#tfERROR NUMBER S3«««»«« 



ISET PARITY UNDER TEST FLAG 
>SEt BACKGROUND PAtTErN jO 
iWOPST CASE PARITY CODE, 
jppINT "tsT PArItY" 



jAND EXIT VIA PTS PC 
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SUBROUTINE T^ DlgF'BLE MEMOpy •'ANaGEMENt 



SEO 0^972 



3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3 301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 



007660 
007662 

007664 
007672 
007672 



022626 

000741 



142737 000040 
000207 



007674 
007700 
007704 
007706 
007712 
007716 
007722 
007724 
007730 
007734 

007740 



007744 



105037 
105737 
100372 
U3702 
042702 
122702 
00136 3 
110237 
004767 
041536 
007740 
000167 

007744 

000000 



177560 
177562 

00020P 
000003 

000315 
176650 

000 

175132 



5$t 



CMp 

BR 



000405 6Si BICB 
EXITCI 
781 RTS 



(FP)+,(5P)+ 
38 



«40#P«REL 
PC 



fPESET STACK FpOM TRAP 

»KEEP TRYING PARITY ADPPESES, 



fCLKAR PAPITY TESTING FLAG 
IPETURN TO CALLER 



fCHECKC 

T^Is rOutTNE checks IF CONtrOL»C wAs TYpED At T^^E END OF EACH 
;TEST OP IN THE EppOP TYPE POIJTINE, 

:IF CONtrOL-C typed the PpOGpAM I5 RETURNED tO LOwEr MEfOpY IF It WAs 
, RELOCATED AND THI- ERPOR HISTORY IS PRINTED OUT. 
jFINALLY It HALTS At FAtHLt, 

fINIT CONTROL-C FLAG, 
lANy CHAR, TYPED? 
jBR IF NO-EXIT VIA RTS PC- 
IGET THE CHAP TYPEDi 
THE PAPITY BIT, 
}1S IT CONTPOL-C? 
JPPANCH IF NO -EXIT VIA RTS PC- 
»ELsE STOpE THE CHAR. FOr usE AS A FLAG. 
fPRlNT ""C" 

IGO RETURN PROGRAM tO LOwEr COpE IF RELOCATED, 



CHFCKCI 


CLPP 


9*SAVKBR 




tstb 


p«tKs 




BPL 


EXITC 




HOVB 


9«8KBB,R2 




PIC 


*200#P2 iCLl 




CMPB 


«3»P2 




BNE 


EXITC 




MOve 


p?#b«savkrp 




JSP 


PCiTPCPLF 




.ASCIZ 


/•c/ 




.EVEN 






JMp 


PFLOEr 


.=7744 






ENDPRGi 





iTh: 



ITHIS BEGINS THE STORAGE FOR THE ERROp HISTOpY 
lSTACK,FOp EACH 4K BANK 18, BYT^S ArE sAvED. 

lalso the absolute loader amd xxdp code is saved 

iaftEr the errOr stack, 

ffop 4k memory size then ppogbamb7744+22a7776 



CZKMA 



ABASE a 

ACDWl 8 

ACDW2 s 

ACpUOPa 

ACTll 

ADDW0 a 

ADDwl s 

AODWl0a 

ADDWlla 

ADDWi2a 

ADDWiJa 

ADDWi4a 

ADDWISB 

ADDM2 s 

AD0W3 m 

AD0W4 8 

ADDW5 a 

ADDi^e a 

ADOW? B 

ADDW8 8 

ADDW9 B 

ADEVCTa 

ADEVM 8 

AENV 8 

AENVM a 

AFATAL8 

AMADRla 

AMADP28 

AMADP3H 

AMADP4a 

AMAMsia 

AHAMS28 

AMAMs3« 

AMAMS4a 

AMsGADs 

ANSGLGa 

AMgGfYs 

AMTYPiB 

AMTYP2S 

AMT¥P3a 

AMTYP48 

APASS 8 

APPXOpa 

APTHLT 

APTSIE 

ASWF^EGa 

ATESTNs 

AUNIT a 

AUSWP a 

AVECTls 

AVECT2S 

BAKPAT 



000000 
000000 
000000 

0055S2 

000000 

000000 
000000 
000000 
000000 
000000 



000000 
000000 
000000 

000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 
000000 



BEGIN 000500 
BBTPSE 001012 
BUSER 000104 



MACYll |0A(1052J 05-" 
05»MAp«79 09102 



I20f 
1200 
1200 
1200 
2694 
1200 
120f^ 
1200 
1200 

120M 

1200 
1200 
1200 
1200 
1200 
1200 
1200 

1200 

1200 
1200 
1200 
1200 
1200 
1200 
1200 
1200 
J 200 
1200 
1200 
1200 
1200 

1200 

1200 

1200 

1200 

1200 

1200 

1200 

1200 

1200 

1200 

1200 

1200 

2721 

130«^ 

1200 

1200 

1200 

1200 

1200 

1200 

1026 

2126 

1034 

13328 

in07« 
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crOss reference t^ble 



usFr symbols 



SEq 007 3 



000000 
000000 

000000 



000000 
000000 
000000 

000000 



000000 
000000 
000000 
000000 
000000 
000000 

006230 
000724 

000000 
000000 
000000 
000000 
000000 
000000 

000316 



1215 

2700# 



1206 

1211 
1212 
1203 
122B 
1232 
1235 
1238 
1222 
1230 
1233 
1236 
1208 
1209 
1202 
1223 
1231 
1234 
1237 
1205 

2837« 

1314« 

1213 

1204 

1207 

1214 



1160» 
2132 

1163 

1382 



) 



1268* 

2136 

1184 

3081 



1491 
2J49 
124R« 

3255 



1705 
2152 

2548 



1707 

2l9l» 

2559 



l7i5 
2288 
2565 



l726# 
2344» 



1790 
2345 



IB22* 
2529* 



2004* 
3269# 



2039 



2074* 



CEKMA MACYll 30A(1052) 05»MAp-7g 09|02 PAGE 75 
CZKMAF.Pli 05-'^AR-'79 09|02 CROSS REFERENCE TARtF 



USER SYMPOLS 



CHECKC 


007674 


1547 


2812 


3295« 






















CKDONE 


009144 


2«;34 


2557 


2567» 






















CLRMEH 


001540 


14P58 


2599 
























CLRMM 


007420 


1417 


1439 


2711 


3184» 




















CNTSCP 


001672 


1''46 


1549« 
























CONT 


001600 


15a2« 


1560 
























CONTMM 


005172 


2531 


2578# 
























CTLC 


005620 


2691 


2720K 
























DECWRD 


000312 


1!46« 


1147 


2660* 


2663* 


?69B« 


2978 
















ENDPAS 


005334 


2576 


?636« 
























ENDPRG 


007744 


1072 


1266 


2640 


2757 


?309!« 


















ENDSTK 


000310 


1143« 


1144 


1404» 


2644 


2714 


















END0 


002164 


1647» 


1689 
























ENOi 


002264 


1689# 


1729 
























ENDie 


004030 


2196 


2204# 


2347 






















END12 


004354 


2347# 


2459 


2491 






















EN02 


002374 


1729« 


1825 
























END 3 


002642 


1B258 


1864 
























FND4 


002752 


1864» 


1950 
























ENDS 


003120 


1950« 


2006 
























END6 


003254 


2006* 


2082 
























END7 


003500 


208?« 


2204 
























ERROR 


005630 


1604 
2307 


1667 
2315 


1721 
2444 


1786 
2456 


1850 
2473 


1890 
27318 


1897 
2883 


1924 


1982 


2056 


2137 


2153 


2162 


ERRTYP 


005746 


2764* 


























EXITC 


007672 


3274 


3282» 


3797 


3301 




















EXTYP 


006602 


2944 


2951 


295fi« 






















FAILNM 


003432 


2659 


2663# 


2676 






















FATEPR 


006166 


1279 


1327 


1450 


1474 


1632 


2826» 


2894 


3088 


3264 










FATHLT 


006236 


2804 


283911 
























FATYP 


007010 


2836 


3031« 
























FNOERR 


006114 


2801# 


2838 
























GALLOP 


003326 


2119« 


2254 
























GEtADr 


007332 


1330 


1331 


3141» 






















GETBNK 


007440 


2516 


2738 


3l98# 






















GETSlZ 


007350 


2580 


2591 


2596 


3159# 




















HIGHAD 


000332 


ll7l« 


1316 
























HIGHTW 


000330 


lt70« 


1315 


1392 






















LOOP 


001610 


1505« 


1358 
























LOwADD 


000326 


1168« 


























LOWBNK 


000304 


1136« 


1137 


2025« 


2037 


2072 


















LOWER 


005150 


2'^67 


2571« 
























LOWTWO 


000324 


1167S 


1385 


1441 


2579 




















M a 


000200 


982# 


2473 
























MAXADR 


005262 


2594 


2597 


2608# 






















MAXNEM 


000340 


1177S 


1314 


140B» 


1624 


l8i9 


2545 


2561 














MEMMNG 


007064 


1357 


2573 


30578 






















MEMTST 


001532 


14798 


























MMAVA 


000276 


IIIB8 


1121 


1359 


2530 


2575 


3038» 


3066» 


3108 


3184 


3l87» 


3205 






MMrEG 


007070 


1370 


2390 


305B# 


3094 




















N s 


000054 


9B2» 


1279 


1282» 


1327 


1330» 


1450 


1453« 


1474 


i477« 


1375 


1578« 


1589 


I59i« 






1592 


1595S 


1600 


1602» 


1632 


1635« 


1659 


|662# 


1667 


1670» 


1702 


1705» 


1721 






1734# 


1746 


1749S 


1771 


1773# 


1781 


1783« 


1797 


1799« 


1834 


18371 


1850 


1853» 






1883 


iS86# 


1890 


1893# 


}897 


l900» 


1924 


l927# 


1972 


1975« 


1982 


19859 


2021 






2024# 


2036 


20S9# 


2113 


21l6# 


2137 


2140# 


2153 


2l56« 


2162 


2l65« 


2239 


2242« 






2279 


22828 


2307 


23109 


2315 


23l8» 


2380 


2383» 


2444 


2447« 


2456 


2459S 


2473 



^ 
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SEQ 'J075 



) 



NOHM 


007210 


NOTYP 


006470 


OCTTYP 


006744 


OCTXT 


007062 


ONEPAS 


000556 


PAREPR 


006244 


PAPFL 


005470 


PARITY 


007520 


PARMAP 


000352 


PARPS 


000360 


PAPSP 


000356 


PASFLG 


000306 


PBNK 


000312 


PCRLF 


006572 


PNTMES 


006612 


PUTADR 


007242 


PWRDN 


000070 


PWRUP 


000136 


REL a 


000405 


RELBOT 


000322 


RELOC 


005004 


RCLOER 


005076 


RESTRT 


000250 


RETMM 


007206 


RCTSTK 


005374 


RETTYP 


006530 


RLODER 


005576 


rptoct 


007000 


RPT10 


003322 


PPTll 


004070 


RPT6 


003140 


SAVKBB 


0003I5 


SAVLDR 


001314 


SAVLOC 


000354 


SAVMAX 


000342 


SAVPW 


006414 


SAVRi 


006416 


SAVP4 


000344 


SAVR5 


000346 


SAVR6 


000350 


SCOPE s 


000240 


SEQERP 


006166 


SETSTK 


001220 


SETSWR 


000656 


SLFSIE 


001024 


SR0 a 


177572 


START 


000200 


STRTDI 


000302 


SWAPAT 


000320 


SWHALT 


001712 


SWR 


000450 



SWREG 000176 



2476# 
3063 
2927« 
Ufi7 

1260 

12S6 

2656 

1494* 

11«5» 

1188« 

1187# 

11388 

2065 

2484 

U45» 

1386 

1034 

1374 

1000» 
1000 

ltl3« 

n63« 

1527 

2536 

1048 

3061 

2647* 

2931 

2702 

2671 

2n7« 

2199 

1975« 

1150» 

1410 

1186« 

U79» 

2B6M» 

2fl6j» 

U8P« 

1073 

1033 

983« 
1575 
1265 
1290« 
134l« 
11598 
1041 
1134« 
1162» 
1S55# 
1745« 
2533 
1051» 



2883 

30B4« 

2963 

1391 

3014 

I263«f 

2856« 

2673# 

2689 

2862 

28S7» 

2856» 

1142 

2070 

2494* 

2-'39 

29538 

2246 

1377 

1252 

1033« 

1259 

1467 

25298 

2SS5« 

1064 

3082» 

2651 

2940« 

27U» 

3028« 

2203 

2202 

2005 

2571 

1412 

1998* 

1477 

2886 

2887 

2712 

ll8l# 

1058 

J6S9 
1392» 



3065* 
1058» 
1135 
2157 

1293 

2636 
1296 



2886« 2893 

2965 

3015S 
3047» 



3241« 

3247* 

2868 

2889 

1502» 

2?85» 

2505* 

3215* 

2958 

2512 

2794 



1465 



3306 

1066 

2674 

2720 
3046 
2249 
2245 

2690 
1417# 



2900» 
29P1» 



1438» 
Il84» 



1702 



2035« 
2161 



1296* 
2693 



1860# 

2302 

2522* 



2407 



2555 
1251* 



1746 



2064 
2190* 



1301* 
2778 



2897# 3088 



3251* 3258 



l92Bt 

2322 

?746 



2975 1012 
2542 2906 

3106» 



?535 



1072«' 2709 



22489 

3295* 3302* 



7564* 
1608 



30911) 3264 



3267# 



1945<» 
2328* 



2914 



l977^^ 
2329 



2962» 



1968 
2337* 



1990«> 
2338 



2537* 2556 



2563* 3268* 



2003« 
2427 



3281* 



2024« 
2434 



2047 
2449 



2063* 
2467 



1334 

2807 



2566* 
1883 



1448 
2962 



2858 
J972 



1494 
3010 



1553 

3060 



1557 
3241 



2239 



1618 



2279 



2380 



2248 



2827» 



2508 
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SEQ 0076 



SWtl s 


004000 


982S 


























TBL 


001626 


1511 
1527 


1515» 


1516 


1517 


1518 


1R19 


1520 


1521 


1522 


1523 


1524 


1525 


1526 


TKS 8 


177560 


1155« 


3296 
























TPADER 


006420 


2658 


2787 


2904« 






















TPCRLF 


006604 


1067 


2695 


2827 


2958« 


2966 


3085 


3260 


3271 


3303 










tpprer 


006444 


2675 


2783 


2912« 






















TRYSR 


001014 


1318 


1334» 
























TSTGO 


001714 


1554 


1557i( 
























TSTMM 


005156 


1453 


2573«« 
























tstpel 


001372 


1261 


14381 
























tstrp 


000570 


1264 


1266« 
























tstscp 


001660 


I545f« 


1647 
























tstsiz 


001376 


1439« 


























TST0 


001730 


1515 


1573» 
























TSTl 


002166 


1516 


165S» 
























TSTI0 


003502 


1523 


2110s 
























TSTil 


004032 


1524 


2236« 
























TST12 


004104 


1525 


22770 


2346 






















TST13 


004356 


1526 


2378« 
























TST2 


002266 


1517 


1699« 
























TST3 


002376 


1518 


1744# 


1823 






















TST4 


002644 


1519 


1832* 
























TST5 


002754 


1520 


1880« 
























T5T6 


003122 


1521 


1968» 
























TST7 


003256 


1522 


20l8ff 
























TYPCNT 


000314 


IMS* 


1254* 


2670* 


2792* 


2832* 


301R* 


3045* 














TYPDEC 


006634 


2662 


2975« 
























TYPENB 


000277 


1122« 


1125 


2764# 


2780» 


2904 


2912 
















TYPEOP 


005526 


2695!» 


























TYPERR 


006722 


2796 


3010# 
























TYPMEM 


001206 


1388« 


























TYpOCT 


006754 


3013 


3019« 
























TYPSIZ 


001164 


133? 


1335 


1382»' 






















TYPSTK 


005354 


2642» 


2648 
























UPMM 


007234 


2578 


3093# 
























WRTMEM 


000120 


1025S 


1750 


1886 


1975 




















SA m 


000001 


4t^2«« 


404 


405*1 


407 


408» 


412 


4l3» 


4l7 


4l8« 


423 


424« 


429 


4308 






436 


437« 


442 


443» 


447 


448$ 


451 


4528 


455 


456« 


4S9 


460# 


463 






464» 


467 


468# 


471 


472» 


475 


476« 


479 


480tt 


484 


485* 


488 


489S 






492 


493» 


496 


497« 


500 


50l« 


502 


503# 


510 


5ll« 


5l4 


5l5# 


5l8 






519» 


529 


530» 


533 


534« 


542 


543* 


546 


547# 


549 


550« 


555 


556» 






559 


560« 


563 


564« 


567 


568» 


575 


576« 


579 


580» 


583 


584» 


589 






59p# 


594 


595« 


601 


602» 


607 


608« 


611 


612« 


616 


6l7« 


620^ 




lADEPR 


000301 


1130# 


1133 


1596* 


I7i9* 


1783* 


1848* 


2768 


2785 












lAPTHD 


000276 


1098 


1104# 


1117 






















8CNTMM 


005176 


2577 


2579# 
























ICPUOP 


000426 


1215» 


























IDEVCT 


000410 


12068 


1552* 


2062* 


2186* 




















SDOAGN 


005572 


2701 


2709# 
























SENDAD 


000156 


994 


1044# 


2707 






















lENV 


000420 


121H 


1299 


1545 


2801 


2837 


















8ENVM 


000421 


1212« 


1317 


1616 


2946 




















SEOP 


005476 


2637 


3645 


26e8» 






















SETABL 


000430 


I2i0« 


























SETEND 


0004S0 


1110 


12391 
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SEQ 0077 



SFATAL 


000402 


8GISIZ 


007346 


SHD a 


1 000PI02 


IHIBTS 


000276 


IHXMAX 


000334 


$KBB a 


1 177562 


8MADP1 


000432 


SMADP2 


000436 


IMADP3 


000442 


SMADP4 


000446 


SMAIL 


000400 


$MAMSl 


000430 


IMAMS2 


000434 


SMAMS3 


000440 


SMAMS4 


000444 


8MAXM 


000336 


SHBADR 


000300 


tMsGAD 


000414 


8MSGLG 


000416 


•MsGTY 


000400 


•MTYPi 


000431 


SMTYP2 


000435 


8MIYP3 


000441 


SMTyp4 


000445 


iNWTSTs 


000001 


8PASS 


000406 


fPASTM 


000304 


iPREBP 


000300 


8BETMM 


007200 


SSVPC a 


000044 


fSWP s 


000000 


$SWRCG 


000422 


tTESTN 


000404 


8TN « 


(^00014 


8TPB 8 


177566 


$TPCHP 


006546 


STPOEC 


006640 


ITPNUM 


007012 


SIPS a 


177564 


8IPSTK 


«105344 


SISTM 


000302 


STYPE 


006504 


iUNIT 


000412 


8UNITM 


«00306 


8USWP 


000424 


SZ 8 


000362 


8EZ 8 


007744 


S8M s 


000200 


■ <" 


007746 



1203» 


2731» 


2740* 


2748 


2831* 


2834 
















1393 


3156« 
























973 


























n<^5« 


























1174« 


1315» 
























1156# 


3298 
























1228« 


























1232« 


























1235« 


























1238« 


























1061 


1106 


1110 


1201« 


1271 


1286 






^ 










1222# 


























1230« 


























1233« 


























1236» 


























1175# 


1316» 


1401 






















1106« 


























1208« 


























1209# 


























\mi^ 


1202« 


2803* 






















l?23«' 


1324 
























1231« 


























1234X 


























1237* 


1320 
























1561« 


1563 


1650# 


1652 


,69i# 


1693 


1733» 


1735 


l826# 


1828 


l866t 


1868 


1952* 


1954 


2007# 


2009 


2083» 


20R5 


2208* 


2210 


2255» 


2257 


2348« 


2350 






12C5« 


1263 


2692* 


2698 




















1108» 


























n26« 


1129 


1251* 


2765 


?78i 


2798* 


2882* 














in8(<# 


3091 
























992« 


997 
























973# 
2379 

1213« 


982(» 


1574 


1656 


l700 


1745 


1833 


1881 


1969 


2019 


2111 


2237 


2278 


1301 
























1?65 


1113 


1204# 


1503* 


1549 


1573 


1655 


1699 


1744 


1832 


1880 


1968 


2018 


2110 


2168 


2176 


2201 


2236 


2277 


2378 














963« 


973 


1561 


1574X 


1650 


1656« 


1691 


l700« 


J733 


1745« 


1826 


l833ff 


1866 


l8fli« 


1952 


]969« 


2007 


20l9» 


2083 


2111« 


2208 


2237« 


2255 


227BU 


2348 


2379« 


1158« 


2950* 
























2937 


2946# 


3037 






















2S17 


2664 


2699 


2977# 




















3027 


30321 
























11578 


2948 
























2S72 


2638# 
























\]OiTn 


























1388 


2932« 


2953 


2959 


2990 


3028 
















1059 


1207« 
























n09« 


























1214« 


























1193» 


























a308« 


























2473i 


























9801 


98S# 


992 


993« 


995» 


997» 


999« 


10051 


1011« 


1050« 


1094 


1095# 


1097« 


1099» 


in7« 


1121* 


n25# 


n29« 


U33# 


l'l35» 


U37» 


1142« 


1144* 


U47« 


1193 


ll96« 


1247« 


1256 


1511 


1574 


1629 


1658 


1701 


1745 


1833 


1882 


l97i 


2020 


2112 


223« 


2278 


2379 


2500 


7757 


2955» 


3245 


3263» 


3305« 


3308« 
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SEQ 0078 



ERRORS DETECTED! 

DSKtNtCEKMAF,CEKMAF/SOL/CRE/WL|TOCaCZKHAF,Pll 
RUN-TIMEI 10 le ,6 SECONDS 
RUN-TIME RATIOi lll/21»5.1 
CORE USEDI UK (21 PAGES) 



? 



